Date: 6/17 / 2000versions: VB4 / 32 VB5 VB6 level: IntermediateAuthor:
The vb2themax team
Private Declare Sub CopyMemory Lib "kernel32" Alias "RTLMoveMemory" (DEST AS _
Any, Source as any, byval bytes as long
'Read a byte from memory
Function Peekb (Byval Address As Long) AS Byte
CopyMemory Peekb, Byval Address, 1
END FUNCTION
'Read an inTeger from Memory
Function Peeki (Byval Address As Long) AS INTEGER
CopyMemory Peeki, Byval Address, 2
END FUNCTION
'Read a long value from memory
Function Peekl (Byval Address As Long) AS Long
CopyMemory Peekl, ByVal Address, 4
END FUNCTION
