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
