Is this how you do a nested do while loop, because it not working the way i want it too, one the user interface Hotel 2 should appear under Hotel 1. The asterisk is supposed to increase by 1 to whichever number i put in the inputbox and it not doing so.
Code:
Dim intNumber As Integer
intNumber = Val(InputBox("Hotel Rating"))
intNumber = 1
Do While intNumber <= 6
intNumber = intNumber + 1
lblStars.Text = "Hotel&1" & "*"
Me.Refresh()
Loop
Do While intNumber <= 6
intNumber = intNumber + 1
lblStars.Text = "Hotel&2" & "*" & ControlChars.NewLine
Me.Refresh()
Loop
End Sub
End Class