DLL的一个简单问题,求教指点！！

在做DLL时怎样收到Form窗体上的事件?本人用以下代码作了测试，在调试的没有问题，但编译好DLL文件后就有问题，帮忙看一下。
谢谢各个大侠！
***************************************DLL工程代码
'''''''''''''''''''''''''''''''''窗体Form1
Public Event FrmEvent()          '在Form1定义一个事件Private Sub Command1_Click()  '点击按钮
RaiseEvent FrmEvent              '触发From1定义的事件
End Sub'''''''''''''''''''''''''''''''类Class1
Dim WithEvents Frm1 As Form1     '定义Form1的一个变量
Public Event Class1Event()       '定义Class1的事件Private Sub Class_Initialize()
Set Frm1 = New Form1
End SubPrivate Sub Class_Terminate()
Set Frm1 = Nothing
End SubPrivate Sub Frm1_FrmEvent()
'MsgBox "Frm1Event"
RaiseEvent Class1Event           'Form1事件触发时,触发Class1的事件
End SubPublic Sub ShowForm1()
Frm1.Show vbModal                '显示Form1对话框
End Sub***************************************测试工程代码
Dim WithEvents Test As Class1Private Sub Command1_Click()
Test.ShowForm1
End SubPrivate Sub Form_Load()
Set Test = New Class1
End SubPrivate Sub Test_Class1Event()
MsgBox "I want to do something  here"
'''I want to do something  here
end Sub