进度条代码,窗口启动进度条就在动作,我还没有点按钮呢

进度条代码,窗口启动进度条就在动作,我还没有点按钮呢
Private Sub Command3_Click()
ProgressBar1.Value = ProgressBar1.Min
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
ProgressBar1.Value = 0
End If
End Sub


坛友帮我看看  ,是什么问题?谢谢;