Is it possible to display a cmd window inside the windows form? Visual Basic

Question

If so Can u show me how?
Because i have a .exe i'm trying to open in the Form
the exe open up a command line but i what it to look like this 
01
02
|------------------------------------------------|
03
|           
this is your main form              |
04
|                                               
|
05
|  
/--------------------------------------\     |
06
|  
|######################################|     |
07
|  
|#####the cmd screen is shown here#####|     |
08
|  
|######################################|     |
09
|  
\--------------------------------------/     |
10
|                                               
|
11
|                
[ a button ]                   |
12
|
      the  button run/open the cmd/exe 
       |
13
i do not what it to open up another window
Please help!!!
please and thank you

Answer 1

Hi,
 Here is a simple example you can try. I don`t know when or how you are opening the cmd windows or anything else so it probably is not exactly what you want. You can test it in a new form project with 1 Button and 3 Panels added to it. each time you
press the button it opens another cmd window until the 3 panels are full.  Being i am only using 1 timer it will only allow you to open each cmd window after the timer tick code finds the previously opened cmd window and sets its parent as one of the
panels.
Imports System.Runtime.InteropServices
Public Class Form1
Private WithEvents Tmr As New Timer With {.Interval = 200}
Private Const HWND_BOTTOM As Integer = &H1
Private ProcCnt As Integer = 0
Private CmdWindows(2) As Process
<DllImport("user32.dll", EntryPoint:="SetParent")> _
Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
End Function
<DllImport("user32.dll", EntryPoint:="SetWindowPos")> _
Private Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As UInteger) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Tmr.Enabled And ProcCnt < 3 Then
CmdWindows(ProcCnt) = Process.Start("cmd.exe")
ProcCnt += 1
Tmr.Start()
End If
End Sub
Private Sub Tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tmr.Tick
Dim pnl As Panel = CType(Me.Controls("Panel" & ProcCnt.ToString), Panel)
If SetParent(CmdWindows(ProcCnt - 1).MainWindowHandle, pnl.Handle) <> IntPtr.Zero Then
Tmr.Stop()
SetWindowPos(CmdWindows(ProcCnt - 1).MainWindowHandle, New IntPtr(HWND_BOTTOM), 0, 0, pnl.ClientSize.Width, pnl.ClientSize.Height, 0)
End If
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
For i As Integer = 0 To CmdWindows.Length - 1
Try
If CmdWindows(i) IsNot Nothing AndAlso Not CmdWindows(i).HasExited Then CmdWindows(i).CloseMainWindow()
Catch ex As Exception
End Try
Next
End Sub
End Class
If you say it can`t be done then i`ll try it