ew cKeyboardlParam
      c.Init lParam
      Set KeyboardlParam = c
   Else
      pError 1
   End If
End Property
Public Property Get GetMsglParam( _
      ByVal lParam As Long _
   ) As cGetMsglParam
Attribute GetMsglParam.VB_Description = "Converts the lParam member of a
 WH_GETMSG hook notification into the consituent members."
   If ValidlParamType = WH_GETMESSAGE Then
      Dim c As New cGetMsglParam
      c.Init lParam
      Set GetMsglParam = c
   Else
      pError 1
   End If
End Property
Public Pro