DEFINE CLASS Interface AS CUSTOM OLEPUBLIC PROCEDURE InterInit PARAMETERS pForm as Form SET CLASSLIB TO Inter1.vcx ADDITIVE WITH pForm .AddObject('myContainer','Container') .myContainer.height=150 .myContainer.width=150 .myContainer.top=1 .myContainer.left=1 .myContainer.visible=.T. ENDWITH oForm=CREATEOBJECT('Form') WITH oForm .AddObject('myContainer','interopt') &&Add Container to form ENDWITH RETURN pForm.myContainer ENDPROC ENDDEFINEThis all works but when I change
oForm=CREATEOBJECT('Form') WITH oForm .AddObject('myContainer','interopt') &&Add Container to form ENDWITHto
WITH pForm .AddObject('myContainer','interopt') &&Add Container to form ENDWITHI get an OLE Dispatch error telling me my interopt does not exist.