vb 动态添加 timer

Private WithEvents Timer1 As Timer

Private Sub Form_Load() '初始化'

　　Set Timer1 = Controls.Add("vb.timer", "Timer1")
　　Timer1.Interval = 1000
　　Timer1.Enabled = True

End Sub

'*******************************动态Timer事件***************************
Private Sub Timer1_Timer()
' MsgBox "yes"


End Sub