VB DemoStop

 Module DemoStop

    'Buka DemoStop.vbproj

    Sub Main()

        Dim a As Integer

        For a = 1 To 10

            Debug.Print(a & " " & vbNullChar)

            Stop

        Next a

    End Sub

End Module