组件中调用winsock的问题（急！急！急！急！急！急！）

Question

本人在vb6.0中编写组件时，调用winsock遇到问题，问题如下：
TransAndGetData（组件名） 错误 '800a005b' 未设置对象变量或 With block 变量本人怀疑是调用winsock是出了问题，我的组件代码如下：
Option ExplicitPrivate WithEvents Winsock1 As MSWinsockLib.WinsockPublic Function Trans(HostName As String, HostPort As Integer, strData As String)
    Winsock1.RemoteHost = HostName
    Winsock1.RemotePort = HostPort
    Winsock1.Connect    Winsock1.SendData strData
    
    Trans = "Success!"
End Function向高手们请教，急用！！

Answer 1

Option ExplicitPrivate WithEvents Winsock1 As MSWinsockLib.WinsockPublic Function Trans(HostName As String, HostPort As Integer, strData As String)
    Winsock1.RemoteHost = HostName
    Winsock1.RemotePort = HostPort
    Winsock1.Connect
    '''''''
    doevents
    Winsock1.SendData strData
    
    Trans = "Success!"
End Function

Answer 2

Winsock1.SendData strData
strData如果是UNICODE ，先转成ANSI字符 
帮助原文：When a UNICODE string is passed in, it is converted to an ANSI string before being sent out on the network.唉，都不看帮助。