Function MakeDWord(wHi As Integer, wLo As Integer) As Long
If wHi And &H8000 Then MakeDWord = (((wHi And &H7FFF) * 65536) Or _ (wLo And &HFFFF)) Or &H80000000 Else: MakeDWord = (wHi * 65536) + wLo End If End Function Function HiWord(dw As Long) As Integer If dw And &H80000000 Then HiWord = (dw \ 65535) - 1 Else: HiWord = dw \ 65535 End If End Function Function LoWord(dw As Long) As Integer If dw And &H8000& Then LoWord = &H8000 Or (dw And &H7FFF&) Else: LoWord = dw And &HFFFF& End If End Function |