Example
Module Module1
Sub Main()
Debug.WriteLine("Starting aplication")
Debug.Indent()
LoopAndDoStuff(5)
Debug.Unindent()
Console.WriteLine("Press a key to exit")
Console.ReadKey()
Debug.WriteLine("End of application")
End Sub
Sub LoopAndDoStuff(Iterations As Integer)
Dim x As Integer = 0
Debug.WriteLine("Starting loop")
Debug.Indent()
For i As Integer = 0 To Iterations - 1
Debug.Write("Iteration " & (i + 1).ToString() & " of " & Iterations.ToString() & ": Value of X: ")
x += (x + 1)
Debug.WriteLine(x.ToString())
Next
Debug.Unindent()
Debug.WriteLine("Loop is over")
End Sub
End Module
will produce: