IntMulti

Public Function LoByte(ByVal IntegerVal As Integer) As Byte
LoByte = IntegerVal And &HFF&
End Function

Public Function HiByte(ByVal IntegerVal As Integer) As Byte
If IntegerVal = 0 Then highbyte = 0: Exit Function
HiByte = IntegerVal \ &H100 And &HFF&
End Function

Public Function LoWord(ByVal LongVal As Long) As Integer
LoWord = LongVal And &HFFFF&
End Function

Public Function HiWord(ByVal LongVal As Long) As Integer
If LongVal = 0 Then HiWord = 0: Exit Function
HiWord = LongVal \ &H10000 And &HFFFF&
End Function Ecco alcune funzioni per convertire interi formati da due
numeri impacchettati. Queste funzioni sono utilissime
soprattutto quando si lavora con la sezione multimediale
delle Api di windows, o anche quando si ha a che vedere con
parametri restituiti da Dll.