Private Sub Form_Load()
 
Timer1.Interval = 150 'Pulszeit
Timer2.Interval = 500 'Pausezeit
 
Timer1.Enabled = False
Timer2.Enabled = False
 
i = 10 'Anzahl der Impulse
impulse = 0 'Zählvariable
 
'Sub für die Pulse am LPT
Call Puls_auf_lpt(i, ende) 'Übergabe der Anzahl der Impulse
 
'Debug.Print ende 'Hier sollte die Variable das Ende der Impulsfolge als TRUE _
  zeigen
Do
   doevents
loop until ende
 
If ende Then
Label2.Caption = impulse 'Gesamtzahl der durchgeführten Impulse
End If
End Sub