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

[cjlong]

1。我建立了一无窗体的EXE工程。
2。加入了一类模块。在部件中引用winsock,在声明中 dim aaa as winsock
在 sub main(){ aaa.方法} 显示aaa没有定义或with语句使用错误。
请教！！！！
谢谢！！！

[subzero]

不能这样引用
从控件栏中删除WINSOCK控件
打开工程菜单中的引用子菜单
点浏览按钮
选文件类型为*。OCX
选择SYSTEM目录下的MSWINSCK。OCX
名字不一定一样
然后就行了

定义：

Dim WithEvents sck As MSWinsockLib.Winsock

SUB CLASS_INITIALIZE()
SET SCK=NEW MSWINSOCKLIB.WINSOCK
END SUB

就可以用了
sck.connect
sck.close
.....

[reallysoft]

'*********************
'form1.visible=false
'********************

Dim aaa as Object

set aaa= new form1.winsock1

[Un1]

各位，控件是不可以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 = Nothing

Unload f
Set f = Nothing


在类中写处理代码：
Private Winsock1_Connect()
...
End Sub