Try:
VB Code:
  1. Private Function HiWord(lParam As Long) As Long

  2.     HiWord = lParam \ &H10000 And &HFFFF&

  3. End Function

  4. Private Function LoWord(lParam As Long) As Long

  5.     LoWord = lParam And &HFFFF&

  6. End Function