Dim Status(3) As Variant     ' index 0 benutze ich nicht, damit der Platz im 
' Array der 
Dim U(3) As Variant              ' der jeweiligen genNr entpricht
Dim rpm(3) As Variant
Dim Ugerundet As Variant
Dim rpmNenn(3) As Variant
 
Private sub form_load()
Status(1) = "stopped"
Status(2) = "stopped"
Status(3) = "stopped"
rpmNenn(1) = 3000
rpmNenn(2) = 3000
rpmNenn(3) = 3000
End sub
 
Private sub cmdStart1_Click()
genNr = 1
call tmrDieselStart_Timer
call tmrWerteAktualisieren_Timer
end sub
 
Private sub cmdStart2_Click()
genNr = 2
call tmrDieselStart_Timer
call tmrWerteAktualisieren_Timer
End sub
 
Private sub cmdStart3_Click()
genNr = 3
call tmrDieselStart_Timer
call tmrWerteAktualisieren_Timer
End sub
 
Private sub tmrDieselStart_Timer()
tmrDieselStart_Timer = True
tmrWerteAktualisieren_Timer = True
rpm(genNr) = rpm(genNr) + 10
lblState(genNr).caption = " anlassen"
if rpm(genNr) > 0.5 * rpmNenn(genNr) Then
lblState(genNr).caption = "Unter Nenn"
U(genNr) = U(genNr) + 2,94
Ugerundet = Int(U(genNr))
End if
if rpm(genNr) = rpmNenn(genNr) Then
lblState(genNr).caption = " Läuft"
tmrDieselStart_Timer = False
End if 
End sub
 
Private sub tmrWertAktualisieren_Timer
lblrpm(genNr) = rpm(genNr)
lblU(genNr) = Ugerundet
End sub