Option Explicit
Dim wert As Integer
 
Private Sub Command1_Click()
wert = 1
Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
If wert >= ProgressBar1.Max Then
    Timer1.Enabled = False
Else
    ProgressBar1.Value = wert
    wert = wert + 1
End If
End Sub