Qwebbrowser Inc

'File source from Holyguard.net
   TYPE QWEBBROWSER EXTENDS QOBJECT
      SUB NAVIGATE (URL AS STRING, VisibleMode AS INTEGER)
       DIM MYIE AS QOLEOBJECT
       MYIE.CreateObject("InternetExplorer.Application")
       MYIE.Visible = VISIBLEMODE
       MYIE.Navigate URL
      END SUB
     END TYPE
'example
'DIM WEBBROWSER AS QWEBBROWSER
'WebBrowser.Navigate ("http://arahnoware.com",1)