Sub Add()
Dim X As Long
Dim i As Long
 
X = 1
For i = 1 To 1000
    X = X + i
    ShowProgress Status, i, 100
Next
End Sub
 
Sub ShowProgress(Status As Control, AktDat As Long, AnzDat As Long)
 
  Dim Proz As Integer
 
  Proz = Int(AktDat / AnzDat * 100 + 0.5)
  If (Proz < 0) Then Proz = 0
  If (Proz > 100) Then Proz = 100
 
  Status.Caption = _
   String$(Int(Val(Status.Tag) / 100 * Proz + 0.5), "n")
End Sub