手头无资料：如何用编码方式设定计时器？

Question

手头无资料，请大家帮帮忙，在线等，马上节贴：
我想点按钮就启动计时器：但是有错误？Private Sub Command1_Click()
Dim Time1 As Timer
Time1.Interval = 5000
Time1.StartTimer
End Sub
------------------------------------
Private Sub Timer1_Timer()
End Sub

Answer 1

Private Sub Command1_Click()
   Timer1.Interval = 5000
   Timer1.enabled=true
End Sub
------------------------------------
Private Sub Timer1_Timer()
' ...
End Sub

Answer 2

Private Sub Command1_Click()
    Time1.Interval = 5000
    Time1.Enabled = True
End Sub
------------------------------------
Private Sub Timer1_Timer()
   
End Sub======================================
定时器是控件,手工往里加,如果通过程序动态加,也不能像你这样写.

Answer 3

不对呀，提示Time1.Interval = 5000有问题

Answer 4

错误：object required窗体没有放timer控件吧？

Answer 5

在Form上添加Timer1，Enabled = FalseOption ExplicitPrivate Sub Command1_Click()
  Timer1.Interval = 5000
  Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
'  Timer1.Enabled = False
'  MsgBox "1"
End Sub