Public Function LoWord(DWord As Long) As Integer
    LoWord = (DWord And &H7FFF) Or (((DWord And &H8000&) <> 0) And &H8000)
End FunctionPublic Function HiWord(DWord As Long) As Integer
    HiWord = (DWord And &H7FFF0000) \ &H10000 Or (((DWord And &H80000000) <> 0) And &H8000)
End FunctionPublic Function MakeDWord(HiWord As Integer, LoWord As Integer) As Long
    MakeDWord = ((HiWord And &H7FFF) * &H10000 Or (((HiWord And &H8000) <> 0) And &H80000000)) _
            Or ((LoWord And &H7FFF) Or (((LoWord And &H8000) <> 0) And &H8000&))
End Function