VBʹÓÃCopyMemory×Ö·û´®´¦Àí

²»ÄÜÖ±½ÓʹÓÃCopyMemoryStr£¬Ó¦¸Ã½«×Ö·û´®×ªÎªbyteÊý×飬ȻºóʹÓÃCopyMemory
Property Get item() As String
    If h = 0 Then ErrRaise ERROR_INVALID_DATA
    'BugAssert p <> pNull
    Dim c As Long, ptr0 As Long
    Dim ab() As Byte
    'È¡³öBSTRµÄ³¤¶È
    CopyMemory c, ByVal p, 4
    If c > 0 Then
        ReDim ab(c - 1)
        CopyMemory ByVal VarPtr(ab(0)), ByVal (p + 4), c
        item = ab
    End If
End Property
Property Let item(s As String)
    If h = 0 Then ErrRaise ERROR_INVALID_DATA
    'BugAssert p <> pNull
    Dim c As Long
    Dim ab() As Byte
    c = LenB(s)
    ab = s
    ' ÖØн«BSTR·Å»ØÄÚ´æÖÐ
    CopyMemory ByVal p, c, 4
    CopyMemory ByVal (p + 4), ByVal VarPtr(ab(0)), c
End Property