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