Tja, ich glaube, ich habe es. Nur meine Hoffnung, dass die Intervalle gleichmässig werden wenn ich DELAY und Timer1.Interval vermeide, ist geplatzt. Diese REALTIME Angelegenheit unter Win ist halt Pech.

Hier ist mal die Routine:

Private Sub Command1_Click()
For i = 1 To Val(Text1.Text) Step 1
DTR 1
TIMEINIT
While TIMEREAD() < Val(Text2.Text)
DoEvents
DTR 0
Wend
If i >= Val(Text1.Text) Then Exit For
Next i
End Sub
Ja und doch noch eine Sache. Wenn jemand einen Tip haben würde, wie ich die Routine auch während der Ausführung stoppen könnte, wäre das hilfreich. Mommentan muss ich halt warten, bis die eingestellten Zeiten abgelaufen sind.

MfG

KZ