Private Const STD_OUTPUT_HANDLE = -11&
 
Private Declare Function AllocConsole Lib "kernel32" () As Long
 
Private Declare Function FreeConsole Lib "kernel32" () As Long
 
Private Declare Function GetStdHandle Lib "kernel32" ( _
   Byval nStdHandle As Long) As Long
 
Private Declare Function WriteFile Lib "kernel32" ( _
   Byval hFile As Long, _
   lpBuffer As Any, _
   Byval nNumberOfBytesToWrite As Long, _
   lpNumberOfBytesWritten As Long, _
   Byval lpOverlapped As Long) AS Long 'nicht asychnron!
 
Public Sub WriteUsage(Byval sUsage As String)
   Dim hConsole As Long
   Dim nResult As Long
 
   AllocConsole
   hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
   If hConsole > 0 Then
      WriteFile hConsole, Byval sUsage, Len(sUsage), nResult, 0
   End If
   FreeConsole 
End Sub