Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click
' display hours and minutes
For intHours As Integer = 0 To 3
lblHours.Text = intHours.ToString
For intMinutes As Integer = 0 To 9
lblMinutes.Text = intMinutes.ToString
' refresh interface, then pause execution
Me.Refresh()
System.Threading.Thread.Sleep(500)
Next intMinutes
Next intHours
End Sub
End Class
not satisfied
It didn't answered my question. :(
VB6
How do I convert this to the Do Loop statement?
Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click
' display hours and minutes
For intHours As Integer = 0 To 3
lblHours.Text = intHours.ToString
For intMinutes As Integer = 0 To 9
lblMinutes.Text = intMinutes.ToString
' refresh interface, then pause execution
Me.Refresh()
System.Threading.Thread.Sleep(500)
Next intMinutes
Next intHours
End Sub
End Class
Post new comment