Private mvariMin As Long
Private mvariMax As Variant
Private iTimer As Long
 
Public Event SetSekunde(RestSekunden As Long)
 
Public Function TimeStart()
  iTimer = Timer 'Startzeit ermitteln
End Function
 
Public Function SetValue(ByVal iValue As Long) As Long
  Dim iCurTimer As Long
 
  'MaxWert überschritten ?
  If iValue > mvariMax Then
      SetValue = mvariMax
      RaiseEvent SetSekunde(0)
  Exit Function
 
  'Wert Übergeben
  SetValue = iValue
  'Ereignis auslösen mit den Restsekunden
  RaiseEvent SetSekunde(Round(100 / (iValue / mvariMax * 100) * (Timer - _
    iTimer)))
 
End Function
 
Public Property Let iMax(ByVal vData As Long)
    mvariMax = vData
End Property
 
 
Public Property Get iMax() As Long
    iMax = mvariMax
End Property
 
 
Public Property Let iMin(ByVal vData As Long)
    mvariMin = vData
End Property
 
Public Property Get iMin() As Long
    Set iMin = mvariMin
End Property

Private WithEvents SecProgress As clsProgressSekunde

Set SecProgress = New clsProgressSekunde
SecProgress.iMax = ...
SecProgress.iMin = ...
'Ganz wichtig vor der ersten Zuweisung (ab wann die Berechnung erfolgen soll
SecProgress.TimeStart

Progressbar1.Value = SecProgress.SetValue ...