perty Get MsgFilterlParam( _
      ByVal lParam As Long _
   ) As cGetMsglParam
   If ValidlParamType = WH_MSGFILTER Then
      Dim c As New cGetMsglParam
      c.Init lParam
      Set MsgFilterlParam = c
   Else
      pError 1
   End If
End Property
Public Property Get CallWndProclParam( _
      ByVal lParam As Long _
   ) As cCallWndProclParam
   If ValidlParamType = WH_CALLWNDPROC Then
      Dim c As New cCallWndProclParam
      c.Init lParam
      Set CallWndProclParam = c
   Else
      pError 1
   End 