>Try this

* Call this something indicating what it is in a prg
>* I'll use ActiveX.prg
>DEFINE CLASS MySubClass AS OLECONTROL
>  * Whatever here
>ENDDEFINE
>SET PROCEDURE TO ActiveX.prg ADDITIVE
>ThisForm.AddObject("MyObjName", "MySubClass", "ProgID")

In the above "ProgID" is to be replaced with the ProgId of the control being sub-classed.

Works ok, thanks. Interesting, the Help examples I saw don't seem to include the third parameter in AddObject(). But it's Friday afternoon and I need to get out of here so I'm kind of rushing around and may be missing something. :-)