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 valueFunction LowWord(ByVal value As Long) As Integer CopyMemory LowWord, value, 2End Function