Imports System
Imports Microsoft.VisualBasic
Class Sample
Public Shared Sub Main()
Dim saveCursorVisibile As Boolean
Dim saveCursorSize As Integer
Console.CursorVisible = True
saveCursorVisibile = Console.CursorVisible
saveCursorSize = Console.CursorSize
Console.CursorSize = 100
Console.CursorVisible = True
Console.CursorVisible = False
Console.CursorVisible = saveCursorVisibile
Console.CursorSize = saveCursorSize
End Sub
End Class