关于vb自定义类型的使用 请高手指点！！

'模块代码

Public Type cordAryTemp 

    cord_x As Double 

    cord_y As Double 

    cord_h As Double 

    colorDou As Double 

End Type



Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

'Class代码(TestCls[名称换成你自己的类名])：

Public Function xxxx(TypeAdd As Long) As Long

    Dim cat As cordaryTemp

    Call CopyMemory(cat, ByVal TypeAdd, Len(cat))

    Debug.Print cat.cord_x, cat.cord_y, cat.cord_h, cat.colorDou

End Function

'Form代码

Private Sub Form_Load()

    Dim cat As cordaryTemp

    Dim TypeAdd As Long

    Dim cls As New TestCls '名称换成你自己的类名

    With cat

        .cord_x = 1234

        .cord_y = 2345

        .cord_h = 3456

        .colorDou = 4567

    End With

    TypeAdd = VarPtr(cat)

    cls.xxxx TypeAdd

    Call CopyMemory(cls, 0&, 4) '清空cls对象

End Sub