Imports xCon
 
Module Module1
 
    Public Sub main()
 
        '  Test Title Set/Get...
        xConsole.Title = "My Own Console Class!!!"
        Console.WriteLine("\n\n\nActual Window Title: '{0}'", xConsole.Title)
 
        '  Change cursor SHAPE to BLOCK
        xConsole.SetCursorType(CursorType.Block)
 
        '  Test Cursor positioning and printing...
        xConsole.Locate(1, 1) : Console.WriteLine("(1,1)")
        xConsole.Locate(10, 30) : Console.WriteLine("(10,10)")
        xConsole.Locate(24, 60) : Console.WriteLine("(24,60)")
 
        '  Test Color.
        xConsole.Locate(10, 1)
        xConsole.SetColor(ConsoleColor.Blue, ConsoleColor.White)
        Console.WriteLine("Text in BLUE over WHITE")
 
        xConsole.SetColor(ConsoleColor.Black, ConsoleColor.SkyBlue)
        Console.WriteLine("Text in BLACK over SKYBLUE")
 
        xConsole.SetColor(ConsoleColor.Red, ConsoleColor.Yellow)
        Console.WriteLine("Text in RED over YELLOW")
 
        xConsole.SetColor(ConsoleColor.Yellow, ConsoleColor.Brown)
        Console.WriteLine("Text in YELLOW over BROWN")
 
        xConsole.SetColor(ConsoleColor.White, ConsoleColor.Black)
        Console.WriteLine("Returned to WHITE over BLACK standard.")
 
        Console.WriteLine("\nPush ENTER to test CLS")
        Console.ReadLine()
        xConsole.ClearScreen()
 
        '  Exiting...
        Console.WriteLine("\nReady. Push ENTER to Exit...")
        Console.ReadLine()
    End Sub
 
End Module