20 lines
564 B
VB.net
20 lines
564 B
VB.net
|
Module Module1
|
||
|
|
|
||
|
|
Sub Main()
|
||
|
|
Dim bufferHeight = Console.BufferHeight
|
||
|
|
Dim bufferWidth = Console.BufferWidth
|
||
|
|
Dim windowHeight = Console.WindowHeight
|
||
|
|
Dim windowWidth = Console.WindowWidth
|
||
|
|
|
||
|
|
Console.Write("Buffer Height: ")
|
||
|
|
Console.WriteLine(bufferHeight)
|
||
|
|
Console.Write("Buffer Width: ")
|
||
|
|
Console.WriteLine(bufferWidth)
|
||
|
|
Console.Write("Window Height: ")
|
||
|
|
Console.WriteLine(windowHeight)
|
||
|
|
Console.Write("Window Width: ")
|
||
|
|
Console.WriteLine(windowWidth)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
End Module
|