LO-HIWord

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
'Restituisce la parola bassa di un Long

Public Function LoWord(ByVal l As Long) As Integer
If (l And &H8000&) = 0 Then
LoWord = l And &HFFFF&
Else
LoWord = &H8000 Or (l And &H7FFF&)
End If
End Function

'Restituisce la parola alta di un Long

Public Function HiWord(ByVal l As Long) As Integer
Dim lAddress As Long
lAddress = VarPtr(l) + 2
CopyMemory HiWord, ByVal lAddress, 2
End Function