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