Imports System
Imports Microsoft.VisualBasic
Class Sample
Public Shared Sub Main()
Dim sizes As Integer() = {1, 10, 20, 30, 40, 50, 60}
Dim saveCursorSize As Integer
saveCursorSize = Console.CursorSize
Dim size As Integer
For Each size In sizes
Console.CursorSize = size
Console.WriteLine(size)
Console.ReadKey()
Next size
Console.CursorSize = saveCursorSize
End Sub
End Class