Timer Test

[dbasnett]

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        counter = 0
        Timer1.Interval = 1000 'one sec. in ms.
        Timer1.Enabled = True
    End Sub

    Dim counter As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If counter >= 20 Then
            Timer1.Enabled = False
        Else
            counter += 1
            TextBox1.Text = counter.ToString
        End If
    End Sub