Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
Any, source As Any, ByVal bytes As Long) ' Return the low word of a Long value Function LowWord(ByVal value As Long) As Integer CopyMemory LowWord, value, 2 End Function |