Guest User

Untitled

a guest
Oct 3rd, 2013
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.92 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4. Timer1.Enabled = True
  5. Button1.Enabled = True
  6. End Sub
  7. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  8. Timer1.Stop()
  9. End Sub
  10. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  11. Label1.Text = 0
  12. Label2.Text = 0
  13. Label3.Text = 0
  14. End Sub
  15.  
  16. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  17. Label3.Text = Label3.Text + 1
  18. If Label3.Text = 60 Then
  19. Label3.Text = 0
  20. Label2.Text = Label2.Text + 1
  21. If Label2.Text = 60 Then
  22. Label2.Text = 0
  23. Label1.Text = Label1.Text + 1
  24. End If
  25. End If
  26. End Sub
  27. End Class
Advertisement
Add Comment
Please, Sign In to add comment