ficationEvent(ByVal lhWnd As Long, ByVal iMsg As
 Integer, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim lHiWord As Long, lLoWord As Long
Dim tR As RECT

   If (lParam = m_hWnd) Then
      pGetHiWordLoWord wParam, lHiWord, lLoWord
      Select Case lHiWord
      Case LBN_DBLCLK
         RaiseEvent DblClick
      Case LBN_SETFOCUS
      Case LBN_KILLFOCUS
      Case LBN_SELCHANGE
         RaiseEvent SelectionChange
      Case LBN_SELCANCEL
      End Select
   End If
   
End Function
Private Functio