Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer2.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
        Label1.Text = "Hallo und herzlich wilkommen!"
        Timer1.Enabled = False
    End Sub
 
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles _
      Timer2.Tick
        Label2.Text = "Mehr finden Sie auf der Seite ..."
        Timer2.Enabled = False
        Timer3.Enabled = True
    End Sub
 
    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles _
      Timer3.Tick
        'hier startet der Countdown mit 10 minuten mit Textausgabe in Label
        Label3.Text = "Dieses Angebot gilt noch" + Countdown + "Minuten"
    End Sub