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