AfterPieceAddイベントを他のモジュールから呼び出す方法を教えてください。

タイムビューのAfterPieceAddイベントを他のモジュールから呼び出そうとしたのですが、Cancelの引数は、何を渡せばいいのでしょうか。
Falseを渡そうとすると「型の不一致」でエラーが起きてしまいます。

説明

AfterPieceAddイベントの他モジュールからの呼び出しは、できません。
呼び出しを行う場合は、共通関数などでご利用ください。

対応

(例)共通関数funcAを使用した場合
Private Sub Command2_Click()
Dim blnRet As Boolean
Dim Start As KnTViewLib.ReturnDate
Dim Finish As KnTViewLib.ReturnDate
Dim Item As KnTViewLib.Item
blnRet = False
funcA blnRet, Start, Finish, Item
End Sub

Private Sub KnTView1_AfterPieceAdd( _
ByVal Cancel As KnTViewLib.ReturnBoolean, _
ByVal Start As KnTViewLib.ReturnDate, _
ByVal Finish As KnTViewLib.ReturnDate, _
ByVal Item As KnTViewLib.Item)
Dim blnCancel As Boolean
blnCancel = True
If (Cancel.Value = False) Then
blnCancel = False
End If
funcA blnCancel, Start, Finish, Item
End Sub

Private Sub funcA( _
ByVal Cancel As Boolean, _
ByVal Start As KnTViewLib.ReturnDate, _
ByVal Finish As KnTViewLib.ReturnDate, _
ByVal Item As KnTViewLib.Item)
　　　　　：
<必要な処理>
　　　　　：
End Sub