the consituent members."
   If ValidlParamType = WH_MOUSE Then
      Dim c As New cMouselParam
      c.Init lParam
      Set MouselParam = c
   Else
      Debug.Print "ERROR IN MOUSELPARAM"
      pError 1
   End If
End Property
Public Property Get KeyboardlParam( _
      ByVal lParam As Long _
   ) As cKeyboardlParam
Attribute KeyboardlParam.VB_Description = "Converts the lParam member of a
 WH_KEYBOARD hook notification into the consituent members."
   If ValidlParamType = WH_KEYBOARD Then
      Dim c As N