Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, 

	ByVal e As System.EventArgs) Handles Button1.Click

        Dim counter As Integer

        counter = 1

        While (counter <= 10)

            MsgBox("Counter Now is : "  counter)

            counter = counter + 1

        End While

    End Sub

End Class