Lancer une application

Imports System.IO
    Public Class Form1
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            ' Setting some of the process information
            Dim start_info As New ProcessStartInfo("C:\WINDOWS\system32\ipconfig")
            start_info.UseShellExecute = False
            start_info.CreateNoWindow = True
            start_info.RedirectStandardOutput = True
            start_info.RedirectStandardError = True
     
            ' Construct the argument for the process
            start_info.Arguments = "/all"
     
            ' Create the new process, set its start information and execute the process
            Dim proc As New Process()
            proc.StartInfo = start_info
            proc.Start()
     
            ' Attach to stdout and stderr.
            Dim std_out As StreamReader = proc.StandardOutput()
            Dim std_err As StreamReader = proc.StandardError()
     
            ' Display the results.
            RichTextBox1.Text = std_out.ReadToEnd() & std_err.ReadToEnd()
     
            ' Clean up.
            std_out.Close()
            std_err.Close()
            proc.Close()
     
        End Sub
    End Class