Public Class Form1
 
    Dim i As Integer = 0
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
 
        i = i - 1
        TextBox1.Text = i
 
        If i = 0 Then
            Timer1.Stop()
            MessageBox.Show("Stop")
        End If
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Timer1.Interval = 1000
 
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        i = 10
        TextBox1.Text = i
        Timer1.Start()
 
    End Sub
End Class

EALA FREYA FRESENA

    ' Abziehen...
    If intZeitProzesse <> 0 Then intZeitProzesse -= 1

    ' Anzeige...
    Me.lblProzesseInfofeld.Text = String.Format("Prüfe Prozesse in {0} Sekunde(" & _
      "n)", intZeitProzesse)
 
    ' Nur wenn Bedingung nicht Wahr,
    ' sonst wird es übersprungen!
    If intZeitProzesse = 0 Then
      NeuesFensterProzesseFrageCode()
      Me.lblProzesseInfofeld.Text = String.Format("Prüfe Prozesse in {0}" & _
        "Sekunde(n)", intZeitProzesse)
    End If