Guest User

Untitled

a guest
Feb 19th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
  4. For intMinutes As Integer = 0 To 5
  5. lblMinutes.Text = intMinutes.ToString
  6. For intSeconds As Integer = 0 To 60
  7. lblSeconds.Text = intSeconds.ToString
  8. Me.Refresh()
  9. System.Threading.Thread.Sleep(500)
  10. Next intSeconds
  11. Next intMinutes
  12. End Sub
  13.  
  14. Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
  15. Me.Close()
  16. End Sub
  17. End Class
Add Comment
Please, Sign In to add comment