Public Class OddNumbersForm
' display odd numbers from one to number input by user
Private Sub viewButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles viewButton.Click
Dim limit As Integer ' upper limit set by user
Dim counter As Integer = 1 ' counter begins at 1
resultsListBox.Items.Clear() ' clear ListBox
limit = Val(limitTextBox.Text) ' retrieve upper limit
resultsListBox.Items.Add("Odd numbers:") ' display header
Do While counter
' display odd number
resultsListBox.Items.Add(counter)
limit += 2 ' increment counter
Loop
End Sub
Of course I am getting a infinite loop, any ideas on how I should stop this.
Thanks in advance
