Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        With Timer1
            .Interval = 60000
            .Enabled = True
        End With
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        If TextBox1.Text = "" Then
            TextBox1.Text = 0
        End If
 
        If TextBox1.Text <= 9 Then
            TextBox1.Text = TextBox1.Text + 1
        Else
            TextBox1.Text = 1
        End If
 
    End Sub
End Class

EALA FREYA FRESENA