奇怪，奇怪！VB或API的BUG还是我的错误？

Question

当VB的一个结构中包含一个定长字符（在前），一个枚举时（在后），调用CopyMemory，程序肯定飞掉，连VB一起飞掉，加On Error也无效。如：Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Enum eMyEnum
    e1 = 1
    e2 = 3
End Enum
Private Type tMyStruct
    t1 As String * 8
    t2 As eMyEnum
End Type
Private Sub Form_Load()
    Dim tt As tMyStruct
    Dim byt() As Byte
    Dim size As Long
    size = LenB(tt)
    ReDim byt(size) As Byte
    CopyMemory byt(0), tt, size '飞了
End Sub但是只要把结构中的枚举放到前面，字符放到后面，就没事。
不知到大家有没有碰到这样的情况？还是我的什么地方有问题？？

Answer 1

改成
    CopyMemory byt(0), ByVal tt, size  '飞了
或者
    CopyMemory byt(0), ByVal VarPtr(tt), size  '飞了因为结构中有string类型,所以在调用copymemory的时候,vb自动做了unicode->ansi转换,并分配了另一个临时字符串地址,就是因为这个所以出错

Answer 2

感激！  supergreenbean(超级绿豆(MS MVP - VB) - 暑去冬来，该吃补药了……)
你是我的大救星！！这下不用改程序的实现方法了。