oTemp = CREATEOBJECT('MyContainer') && Create a Form *-- This calls the Test method oTemp.oleObjectExample.Test() oTemp.oleObjectExample.DeleteAll() DEFINE CLASS oleClassExample AS OleControl OleClass ="POINTERS.PointersCtrl.1" *-- This is a new method (the ActiveX doesn't have it) PROCEDURE Test WAIT WINDOW "I'm the test message on the screen..." ENDPROC *-- This is a redefinition of the original * DeleteAll method. FUNCTION DeleteAll *-- Call the ancestor's DeleteAll method DODEFAULT() WAIT WINDOW "Now we are in the DeleteAll method..." ENDFUNC ENDDEFINE DEFINE CLASS MyContainer AS Form ADD OBJECT oleObjectExample AS oleClassExample ENDDEFINEVlad