如何在无窗体的类模块中引用ACTIVEX控件！！！！！

Question

不能这样引用
从控件栏中删除WINSOCK控件
打开工程菜单中的引用子菜单
点浏览按钮
选文件类型为*。OCX
选择SYSTEM目录下的MSWINSCK。OCX
名字不一定一样
然后就行了定义：Dim WithEvents sck As MSWinsockLib.WinsockSUB CLASS_INITIALIZE()
SET SCK=NEW MSWINSOCKLIB.WINSOCK
END SUB就可以用了
sck.connect
sck.close
.....

Answer 1

'*********************
'form1.visible=false
'********************Dim aaa as Objectset aaa= new form1.winsock1

Answer 2

各位，控件是不可以New出来的，正确的方法是：在ActiveX EXE中增加一个窗体Form1，放上控件Winsock1, 设置BorderStyle为None,HasDC 为False。
在类中声明：
Private f As Form1
Private WithEvents Winsock1 As Winsock在类初始化时：
Set f = New Form1
Load f
Set Winsock1 = f.Winsock1
类终结时:
Set Winsock1 = NothingUnload f
Set f = Nothing
在类中写处理代码：
Private Winsock1_Connect()
...
End Sub