Count+in+5s+Source+Code+Listing

Dim counter As Integer Dim CurrentTotal As Integer

CurrentTotal = 4

OutputField.Text = ""

For counter = 1 to 10 CurrentTotal = CurrentTotal + 5 OutputField.Text = OutputField.Text + Str(CurrentTotal) + ", " Next counter