<code>Sub ShowProgress(Status As Control, ByVal AktDat As Long, _
 ByVal 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</code>