Если б ты всё сделал правильно у тебя работало как и у меня:
полный код окна:
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value + 1 >= ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Max
Timer1.Enabled = False
MsgBox "Format C: complete!" & vbCrLf & "Press Enter to reboot...", vbInformation, "Format Tool"
End
Else
ProgressBar1.Value = ProgressBar1.Value + 1
End If
End Sub