NestedWhile

Module Module1

    Sub Main()
        Dim i As Integer = 0
        Do
            Do While i < 6
                Dim j As Integer = 0
                Do While j < 6
                    Console.Write("*")
                    j = j + 1
                Loop
                Console.WriteLine()
                i = i + 1
            Loop
        Loop
        Console.ReadLine()
    End Sub
End Module