Private Declare Sub MemCopy Lib "kernel32" _
Alias "RtlMoveMemory" ( _
ByVal Destination As Long, _
ByVal Source As Long, _
ByVal Length As Long _
)MemCopy VarPtr(VTableAddress), ObjPtr(Me), 4
MemCopy VTableAddress + FON * 4 + 28, VarPtr(CodeAddress), 4
Alias "RtlMoveMemory" ( _
ByVal Destination As Long, _
ByVal Source As Long, _
ByVal Length As Long _
)MemCopy VarPtr(VTableAddress), ObjPtr(Me), 4
MemCopy VTableAddress + FON * 4 + 28, VarPtr(CodeAddress), 4
http://www.7880.com/info/Article-4f757de0.html