Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
- For intMinutes As Integer = 0 To 5
- lblMinutes.Text = intMinutes.ToString
- For intSeconds As Integer = 0 To 60
- lblSeconds.Text = intSeconds.ToString
- Me.Refresh()
- System.Threading.Thread.Sleep(500)
- Next intSeconds
- Next intMinutes
- End Sub
- Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
- Me.Close()
- End Sub
- End Class
Add Comment
Please, Sign In to add comment