Imports System
Public Class Program
Public Shared Sub Main()
Dim _stop As Boolean = False
Dim i As Integer = 1
While i <= 30 AndAlso Not _stop
For j As Integer = 0 To 5 - 1
If i = 4 Then
_stop = True
Exit For
End If
Console.Write(j & " ")
Next
Console.WriteLine()
i += 1
End While
Console.WriteLine("After loops")
End Sub
End Class
' run:
'
' 0 1 2 3 4
' 0 1 2 3 4
' 0 1 2 3 4
'
' After loops
'