Private Sub Form_Load()
    With ProgressBar1
        .Min = 0
        .Max = 40
        .Value = 0
    End With
End Sub
 
Private Sub Command1_Click()
    Dim i%
 
    For i = 1 To 40
        Label1.Caption = "erledige Task " & CStr(i)
        ProgressBar1.Value = ProgressBar1.Value = ProgressBar1.Value + 1
        DoEvents
    Next i
End Sub

Gruß
Marcus