VB DemoWhileWend1

 Module DemoWhileWend1

    'Buka DemoWhileWend1.vbproj

    Sub Main()

        Dim a As Integer

        a = 1  'inisialisasi

        While a <= 10

            Debug.Print(a & " " & vbNullChar)

            a = a + 1  'iterasi

        End While

    End Sub

End Module