 lParam As Long _
   ) As cJournallParam
   If ValidlParamType = WH_JOURNALPLAYBACK Then
      Dim c As New cJournallParam
      c.Init lParam
      Set JournalPlaybacklParam = c
   Else
      pError 1
   End If
End Property
Public Property Get JournalRecordlParam( _
      ByVal lParam As Long _
   ) As cJournallParam
   If ValidlParamType = WH_JOURNALRECORD Then
      Dim c As New cJournallParam
      c.Init lParam
      Set JournalRecordlParam = c
   Else
      Debug.Print "Get JournalRecordlParam"
      