???
>lpdummy = 0
>oie=CREATEOBJECT("InternetExplorer.application")
>oie.navigate("http://www.microsoft.com")
> DO WHILE .T.
> IF oie.readystate = 4
> DO WHILE .T.
> IF oie.DOCUMENT.readystate = "complete"
> oie.VISIBLE=.T. && or .F.
> lpdummy=1
> oie.execwb(6,2,0,0)
> EXIT
> ENDIF
> IF lnstartseconds=lntimeout
> =MESSAGEBOX("Cannot open the page","FOX")
> lpdummy=1
> EXIT
> ENDIF
> ENDDO
> ENDIF
> IF lpdummy=1
> EXIT
> ENDIF
> ENDDO
>oie.exit