Public Property Get LoWord(ByRef dword As Long) As Integer LoWord = (dword And &H7FFF&) Or (((dword And &H8000&) <> 0) And &H8000) End PropertyPublic Property Get HiWord(ByRef dword As Long) As Integer HiWord = ((dword And &H7FFF0000) \ &H10000) Or (((dword And &H80000000) <> 0) And &H8000) End Property
Public Property Get LoWord(ByRef dword As Long) As Integer
LoWord = (dword And &H7FFF&) Or (((dword And &H8000&) <> 0) And &H8000)
End PropertyPublic Property Get HiWord(ByRef dword As Long) As Integer
HiWord = ((dword And &H7FFF0000) \ &H10000) Or (((dword And &H80000000) <> 0) And &H8000)
End Property