Declare Function FreeConsole Lib "kernel32" () As Long
FreeConsole завершает созданный процесс из консоли
Функция не имеет параметров
Также смотри пример console.zip Private Sub Form_Unload(Cancel As Integer) CloseHandle hConsole FreeConsole End Sub