特来请教vb做的dll中timer失效的问题

做了一个vb的dll，dll中加了窗体和timer，但是timer不能工作，什么原因呢？
form1 中的timer
Public Sub Timer1_Timer()
MsgBox "test"
End Sub
类模块中的：
Function fun1()
Form1.Timer1.Enabled = True
End Function
调用程序：
Private Sub Command1_Click()
Set a = New test7.Class1
a.fun1
End Sub dll中timer

补充：VB ,  COM/DCOM/COM+