'Class cGenerator
Private Hochlaufstatus As Integer
 
Public Sub Initialisierung()
  Hochlaufstatus = 0
End Sub
 
Public Property Get Fertig() As Boolean
  Fertig = Hochlaufstatus = 10
End Property
 
Public Function Hochlauf()
  If Not Fertig Then
    Hochlaufstatus = Hochlaufstatus + 1
  End If
End Function

Dim Generator As cGenerator
 
Set Generator = New cGenerator
Generator.Initialisierung
 
Do While Not Generator.Fertig
  Generator.Hochlauf
End Do

Dim Generatoren As Collection
Dim AlleFertig As Boolean
Dim Generator As cGenerator
 
'--- Ein Beispiel, wie ein Generator in die Liste eingefügt wird
' kannst du ja machen, wenn Button gedrückt wird
Set Generator = New cGenerator
Generator.Initialisierung
Generatoren.Add Generator
 
Do While Not AlleFertig
  For Each Generator In Generatoren
    Do While Not Generator.Fertig
      Generator.Hochlauf
      AlleFertig = AlleFertig And Generator.Fertig
    End Do
  Next Generator
  'Hier könnte jetzt die Stelle sein, bei der noch Generatoren hinzugefügt 
  ' werden
End Do

Gruß
Dirk

--
?Get it right the first time