You have to subclass control visually anyway. See BUG: License Error with ActiveX Control Added at Run-Time mskb #192693.

>I have a scx form which I wish to add a winsock control as defined below...
>
>

>DEFINE CLASS  myWinSock AS OLECONTROL
>	OLECLASS = "MSWinsock.Winsock"
>ENDDEFINE
>

>
>I add the control in the form init by.. (using SET PROCEDURE to the above class)
>
>

>THIS.ADDOBJECT('oSock', 'MyWinSock' )
>

>
>When I do this a window pops open asking me to "Insert Control..."
>
>What am I doing wrong?