VB程式設計：利用位址偏移通路記憶體

1、運作效果

2、程式代碼;

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

Private Sub Form_Load()

   Dim i As Long

   Dim j As Long

   i = 1234

   j = 4321

   CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4

   Text1.Text = i

End Sub