lcHtml = [<html><body>Hello World!</body></html>] lnLoadTimeout = 3 && seconds WITH Thisform.oWeb.OBJECT .Navigate("about:blank") && Wait for load completion lnStartSeconds = SECONDS() DO WHILE .ReadyState <> 4 ; AND (SECONDS()-lnStartSeconds <= lnLoadTimeout ) DOEVENTS ENDDO && Load HTML into Web Browser Control .Document.Open() .Document.Write(lcHtml) .Document.Close() && Wait for load completionlnStartSeconds = SECONDS()