Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim number As Integer = TextBox1.Text
Dim counter As Integer = 0
Dim track As Integer = 0
While counter <= number
counter = counter + 1
track = track + counter
End While
Dim num As Integer = track / counter
Label2.Text = Label2.Text + number.ToString + " is " + num.ToString
End Sub
End Class