Public Class TimerTextBox
    Inherits TextBox
 
    Dim WithEvents tm As New Timer()
 
    Public Sub New()
        MyBase.New()
 
        tm.Interval = 2000
        tm.Enabled = True
    End Sub
 
    Dim tcnt As Integer = 1
    Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles tm.Tick
        Me.Text = "Tick " & tcnt.ToString()
        tcnt += 1
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist