SendData只处理字符串和字节数组，所以其他类型应该转换为这两种类型。对于自定义类型只能转换为字节数组。可以利用CopyMemory函数： 
    Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _ 
     hpvDest As Any, hpvSource As Any, ByVal cbCop 
    先定义一个字节数组： 
    Dim b() As Byte, Str1 As sendpack 
    发送时： 
    ReDim B(Len(Str1)) As Byte 
    CopyMemory B(0), Str1, Len(Str1) 
    Winsock1.SendData B 
    接收时： 
    ReDim B(Len(Str1)) As Byte 
    Winsock1.GetData B 
    CopyMemory Str1, B(0), Len(Str1) 
<END>     
    