进度条代码，窗口启动进度条就在动作，我还没有点按钮呢
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

坛友帮我看看  ，是什么问题？谢谢

在  form_load()  里面把Timer1.Enabled  设置成  false

Timer1初始Enabled=false

2楼的  是正确的 ，我成功了，加上这个就OK

Private Sub Form_Load()
Timer1.Enabled = False
End Sub