使用WINSOCK控件做一个程序，但是怎么这里出错了？

Question

Public WithEvents objWinSock As MSWinsockLib.Winsock
Private strURL As String
Private strURI As String
....Public Function httpGet(URL As String) As String
    Set objWinSock = New MSWinsockLib.Winsock               !!!!
    .....
end function中的Set objWinSock = New MSWinsockLib.Winsock这句就会出错
提示：“无效使用new关键字”
我改成winsock也不行啊！

Answer 1

怎么没有人看啊？
这段代码是放在类模块里面的，准备编译成DLL。分少了可以再加啊！
急

Answer 2

这个是不可以new的
最简单解决方法是添加一个窗体，在窗体上放置一个winsock控件，然后
Public WithEvents objWinSock As MSWinsockLib.Winsock
private frm as form1
……Private Sub Class_Initialize()
   set frm=new form1
   load frm
End Sub
Private Sub Class_Terminate()
   unload frm
   set frm=nothing
End SubPublic Function httpGet(URL As String) As String
    Set objWinSock = frm.winsock1
    .....
end function