APIPoke

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
Any, source As Any, ByVal bytes As Long)

' write a byte into memory


Sub PokeB(ByVal address As Long, ByVal value As Byte)
CopyMemory ByVal address, value, 1
End Sub

' write an integer into memory


Sub PokeI(ByVal address As Long, ByVal value As Integer)
CopyMemory ByVal address, value, 2
End Sub

' write a Long value into memory


Sub PokeL(ByVal address As Long, ByVal value As Long)
CopyMemory ByVal address, value, 4
End Sub