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

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

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

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