RaiseEventを用いて、イベントを発生させてるんだけど、呼び出し側でイベントが発生しません。

ＡｃｔｉｖｅＸ ＤＬＬの作成途中です。

呼び出し元は こんな感じです。
Public Event test(test1 As Long)

Friend Sub Click()
DoEvents
RaiseEvent test(1)
End Sub

呼び出し側です。
Private WithEvents objtest As testclass

Private Sub objtest_test(test1 As Long)
Label1.Caption = test1
End Sub

で ラベルに値がセットされません。
どうすればいいのでしょうか？