Thisform.LockScreen = .T. Thisform.pageframe1.ActivePage = 2 WITH Thisform.pageframe1.page2.cntbrowser1.olecontrol1.object .Navigate("about:blank") lnStartSeconds = SECONDS() DO WHILE .ReadyState <> 4 ; AND (SECONDS()-lnStartSeconds <= 10 ) DOEVENTS ENDDO IF .ReadyState <> 4 WAIT WIND .ReadyState ENDIF .Document.Open() .Document.Write(lcHtml) .Document.Close() lnStartSeconds = SECONDS() DO WHILE .ReadyState <> 4 ; AND (SECONDS()-lnStartSeconds <= 1 ) DOEVENTS ENDDO IF .ReadyState <> 4 WAIT WIND .ReadyState ENDIF ENDWITH Thisform.pageframe1.ActivePage = 1 Thisform.LockScreen = .F. RETURN