- Code: Select all Expand view
#include "Fivewin.ch"
STATIC FUNCTION MAIN()
LOCAL oWnd, oIe
DEFINE WINDOW oWnd
oIe = TActiveX():New( oWnd, "Shell.Explorer" )
oIe:Do( "ToolBar", .T. )
oIe:Do( "Navigate", "www.google.com" )
oWnd:oClient = oIe
ACTIVATE WINDOW oWnd;
MAXIMIZED
RETURN NIL
EMG