关于声明控件时用 WithEvents 方法的问题

Question

我想建一个类，用来处理程序下载时的问题
想把 WinSock 控件在类内声明Public WithEvents wskP As WinsockPublic Sub StartDown(ByVal strHost As String,ByVal StrPort As String)
    wskP.Close
    wskP.Connect strHost,StrPort
End Sub可是运行到 wskP.Close 时，却出现错误 “对象变量或 With 块变量未设置”
怎么解决啊？

Answer 1

Winsock只能在部件中引用,然后画到窗体上使用,不能用WithEvents来创建.

Answer 2

WinSock 不行吗？那 Inet 控件行吗？我是参考这里的写的代码http://www.china-askpro.com/msg21/qa89.shtml

Answer 3

不好意思.弄错了 -_-#Winsock跟Inet 都可以在类中用WithEvents来创建.在类中:
Public WithEvents mywinsock As WinsockPrivate Sub Class_Initialize()
Set mywinsock = New Winsock'在初始化时实例化对象.
End Sub'你不能在"部件"中加winsock控件,只能在"引用"中引用MSWINSCK.OCX