Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub cmdExecute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExecute.Click, cmdExecute.Enter, txtCommand.Enter
        Dim CMDThread As New Threading.Thread(AddressOf cmdAutomate)
        CMDThread.Start()
    End Sub
    Private Sub cmdAutomate()

        Dim myprocess As New Process
        Dim StartInfo As New System.Diagnostics.ProcessStartInfo
        StartInfo.FileName = \"cmd\"
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False 'Required to redirect
        StartInfo.CreateNoWindow = True 'Dont show CMD window
        myprocess.StartInfo = StartInfo
        myprocess.Start()
        Dim SR As System.IO.StreamReader = myprocess.StandardOutput
        Dim SW As System.IO.StreamWriter = myprocess.StandardInput
        SW.WriteLine(txtCommand.Text) 'The command you entered in the textbox
        SW.WriteLine(\"exit\") 'Exits CMD window
        txtOutput.Text = SR.ReadToEnd
        SW.Close()
        SR.Close()
    End Sub
End Class