Ocultar ventana MS-DOS

[David]

Aqui vá el Ejemplo:

Código:

 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Form_Load()
Dim Hwnd As Long
Hwnd& = FindWindow("ConsoleWindowClass", "D:\WINDOWS\system32\command.com")
If Hwnd& > 0 Then
	Dim Hide As VbMsgBoxResult
	Hide = MsgBox("Ventana MS-DOS encontrada con Hwnd: " & CStr(Hwnd&) & vbCr & "¿Ocultar?", vbInformation + vbYesNo, "Ocultar")
	If Hide = vbYes Then
		ShowWindow Hwnd&, 0
	Else
		ShowWindow Hwnd&, 5
	End If
End If
End Sub

Pueden Colocarlo en un Botón si lo desean.....