如何做一個有Timer功能的Class?(編號：432)

在form中可以使用Timer control,並有Timer_Timer() event會產生,我想做一個Class,希望在裡面也有相同功能,我試過下面方法但是不行,
Dim Timer1 As Timer
Private Sub Class_Initialize()
Timer1.Enabled = True ' error
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
....
End Sub
我也試過開一個form,裡面放一個Timer,class裡面用Set Timer1=form.Timer1,可是Timer event不會trigger class裡的Timer1_Timer()...