' CCONSOLE Class'' Creates a console window and writes to it' Example:' Dim cons As New CConsole' cons.WriteString "Hello World"Private Declare Function AllocConsole Lib "kernel32" () As LongPrivate Declare Function FreeConsole Lib "kernel32" () As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As _ LongPrivate Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) _ As LongPrivate Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _ (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal nNumberOfCharsToWrite _ As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As LongConst STD_OUTPUT_HANDLE = -11&' the handle of this consoleDim hConsole As LongPrivate Sub Class_Initialize() ' allocate a console when this object is created If AllocConsole() Then hConsole = GetStdHandle(STD_OUTPUT_HANDLE) End IfEnd SubPrivate Sub Class_Terminate() ' free the console when this object is destroyed If hConsole Then CloseHandle hConsole FreeConsoleEnd Sub' write a string to the consoleSub WriteString(ByVal Text As String) Dim cWritten As Long WriteConsole hConsole, ByVal Text, Len(Text), cWritten, ByVal 0&End Sub