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