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?
--sb--