Object Property
This property provides Access to an object linked to an Activex control

Syntax:

<WindowName>.<ControlName>.Object:<Member>

Sample:

#include "hmg.ch"

FUNCTION Main()

      DEFINE WINDOW Win1 ;

            AT 0,0 ;

            WIDTH 800 ;

            HEIGHT 500 ;

            TITLE 'HMG ActiveX Support Demo' ;

            MAIN

            DEFINE MAIN MENU

                  POPUP "Test"

                        MENUITEM "Navigate" ACTION TestNavigate()

                  END POPUP              

            END MENU

            @ 10 , 50 ACTIVEX Test ;

                  WIDTH 700  ;

                  HEIGHT 400  ;

                  PROGID "shell.explorer.2" 

      END WINDOW

      Activate Window Win1

RETURN NIL

Procedure TestNavigate()

Local oObject

Local cAddress := ''

      cAddress := InputBox ('Navigate:','Enter Address','http://sites.google.com/site/hmgweb')

      If .Not. Empty ( cAddress )

            Win1.Test.Object:Navigate(cAddress)

      EndIf

Return