MakeLong

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
'Combina due interi in un Long (Double Word)

Public Function MakeLong(ByVal iLow As Integer, _
ByVal iHigh As Integer) As Long
Dim lAddress As Long
lAddress = VarPtr(MakeLong)
MakeLong = iLow 'Assegna normalmente la parola bassa:
'la parola alta e' zero in questo momento e va riempita con il

'secondo 'intero:

CopyMemory ByVal lAddress + 2, iHigh, 2
End Function