Development VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Dim origWidth, width As Integer
      Dim origHeight, height As Integer
      origWidth = Console.WindowWidth
      origHeight = Console.WindowHeight
      Console.WriteLine(Console.WindowWidth)
      Console.WriteLine(Console.WindowHeight)
      Console.ReadKey(True)
      width = origWidth / 2
      height = origHeight / 2
      Console.SetWindowSize(width, height)
      Console.ReadKey(True)
      Console.SetWindowSize(origWidth, origHeight)
      Console.WriteLine(Console.WindowWidth)
      Console.WriteLine(Console.WindowHeight)
      
   End Sub 
End Class