Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
Dim i As Integer
i = 0
While True
If i > 10 Then Exit While
TextBox1.Text += Convert.ToString(i) + " "
i += 1
End While
End Sub