Public Class Form1
 
    Private Results As String
    Private Delegate Sub delUpdate()
    Private Finished As New delUpdate(AddressOf UpdateText)
    Dim button_click As Integer = 0
    Dim myprocess As New Process
    Dim StartInfo As New System.Diagnostics.ProcessStartInfo
 
    Private Sub UpdateText()
        ' txtResults.Text = Results
        txtCommand.Clear()
        txtResults.AppendText(System.Environment.NewLine() & Results)
        txtResults.ScrollToCaret()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If button_click = 0 Then
            opencmd()
            button_click += 1
        End If
        Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
        CMDThread.Start()
    End Sub
 
    Private Sub opencmd()
        StartInfo.FileName = "cmd" 'starts cmd window
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = False 'required to redirect
        StartInfo.CreateNoWindow = True 'creates no cmd window
        myprocess.StartInfo = StartInfo
        myprocess.Start()
    End Sub
 
    Private Sub CMDAutomate()
        'Dim SR As System.IO.StreamReader = myprocess.StandardOutput
        'Dim SW As System.IO.StreamWriter = myprocess.StandardInput
        myprocess.StandardInput.WriteLine(txtCommand.Text) 'the command you wish to run.....
        myprocess.StandardInput.WriteLine(System.Environment.NewLine())
 
        ' SW.WriteLine("exit") 'exits command prompt window
        While myprocess.StandardOutput.EndOfStream = False
            Results = myprocess.StandardOutput.ReadLine()
            Invoke(Finished)
        End While
 
        'Results = SR.ReadToEnd 'returns results of the command window
        'SW.Close()
        'SR.Close()
        'invokes Finished delegate, which updates textbox with the results text
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        opencmd()
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Application.ExitThread()
        Application.Exit()
        End
    End Sub
End Class