Define Class RefreshOLE As Session OlePublic Function RefreshXML(cOBJ As VARIANT,cFile As String) If Empty(cOBJ.locationURL) cOBJ.Navigate2(cFile) Else cOBJ.Refresh2("REFRESH_NORMAL") Endif Endfun Function Error(nError, cMethod, nLine) Comreturnerror(cMethod+' err#='+Str(nError,5)+; ' line='+Str(nline,6)+' '+Message(),_vfp.ServerName) Endfun Enddefine