Display+Stars+Source+Code+Listing

Dim NoStars As Integer Dim counter As Integer

NoStars = Val(NoStarsField.Text)

StarsField.Text = ""

Foor counter = 1 to NoStars StarsField.Text = StarsField.Text + "*" Next counter