Zitat:

Du kannst nicht Timer innerhalb seines Puls setzen - das ist absoluter Hirnriss.

Dim Zaehler As Integer
 
Private Sub Form_Load()
    Zaehler = 0
    Timer1.Interval = 5000
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    Select Case Zaehler
        Case Is < 5
            Timer1.Interval = 5000
        Case Else
            Timer1.Interval = 10000
    End Select
    Debug.Print Zaehler & " " & Now
    Zaehler = Zaehler + 1
End Sub

Zitat:

Ein visueller Vergleich wäre: Setze Dich vor einen Spiegel und halte einen Spiegel zum Spiegel. Es gibt eine ewige Folge.

Zitat:

VB kann sich innerhalb eines 10ms Timer.Interval, so gesetzt, sehr instabil verhalten. Ich vermute das als Problem.