Add em seu Form:
2 buttons, 1 TextBox e um Timer.
Segue abaixo o código de cada componente!
Public
Class Form1
Private Sub Timer1_Tick(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Timer1.Tick
TextBox1.Text = TextBox1.Text + 1
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Timer1.Stop()
End Sub
End
Class
0 comentários:
Postar um comentário