MSDN看不懂的地方，帮忙给看看。

Question

把
PUBLIC Type winpack
    pcnum As Integer
    pcdata  As String
End Type
放到模块里面

Answer 1

To crystal_heart(笑看风云)试过了，还是老样子。

Answer 2

问题出在CVAR函数里，CVAR不支持这种类型！换成CVAR（b.pcnum)

Answer 3

To zyhjswx(无聊豹)我要转的是结构体，如果cvar不支持的话，有什么办法可以让结构体变成byte类型？

Answer 4

To gulingfeng(凌峰)用winsock发出去。

Answer 5

把private sub 改成 public sub

Answer 6

不要直接用Type
否则绝对无法实现的
Dim TempBytes() as Byte
Dim SendBytes() as Byte
Dim TempInt as IntegerTempBytes=StrConv(字符串, vbFromUniCode)
TempInt=UBound(TempBytes)+1
ReDim SendBytes(0 to TempInt+1)
CopyMemory SendBytes(0), TempInt, 2
CopyMemory SendBytes(2), TempBytes(0), TempInt