Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
Dim a As Integer
a = 0
Do While a < 10
TextBox1.Text += a.ToString() + " "
a += 1
Loop
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
Dim a As Integer
a = 0
Do Until a > 0
TextBox1.Text += a.ToString() + " "
a += 1
Loop
End Sub