VB.Net Tutorial/Development/Process

Display properties of current Process

<source lang="vbnet">Imports System.Diagnostics Module Module1

   Sub Main()
       Dim objProcess As New Process()
       objProcess = Process.GetCurrentProcess()
       With objProcess
           Console.WriteLine("Base Priority {0}", .BasePriority)
           Console.WriteLine("Handle count {0}", .HandleCount)
           Console.WriteLine("Process ID (PID) {0}", .Id)
           Console.WriteLine("Machine Name {0}", .MachineName)
           Console.WriteLine("Main Module {0}", .MainModule)
           Console.WriteLine("Main Window Title {0}", .MainWindowTitle)
           Console.WriteLine("Max Working Set {0}", .MaxWorkingSet)
           Console.WriteLine("Min Working Set {0}", .MinWorkingSet)
           Console.WriteLine("Modules {0}", .Modules)
           Console.WriteLine("Nonpage System Memory Size {0}",.NonpagedSystemMemorySize)
           Console.WriteLine("Paged Memory Size {0}", .PagedMemorySize)
           Console.WriteLine("Paged System Memory Size {0}",.PagedSystemMemorySize)
           Console.WriteLine("Peak Paged Memory Size {0}",.PeakPagedMemorySize)
           Console.WriteLine("Peak Virtual Memory Size {0}",.PeakVirtualMemorySize)
           Console.WriteLine("Peak Working Set {0}", .PeakWorkingSet)
           Console.WriteLine("Priority Boost Enabled {0}", .PriorityBoostEnabled)
           Console.WriteLine("Priority Class {0}", .PriorityClass)
           Console.WriteLine("Private Memory Size {0}",.PrivateMemorySize)
           Console.WriteLine("Priviledged Processsor Time {0}",.PrivilegedProcessorTime)
           Console.WriteLine("Name {0}", .ProcessName)
           Console.WriteLine("Processor Affinity {0}", .ProcessorAffinity)
           Console.WriteLine("Start Time {0}", .StartTime)
           Console.WriteLine("Total Processor Time {0}", .TotalProcessorTime)
           Console.WriteLine("User Processor Time {0}", .UserProcessorTime)
           Console.WriteLine("Virtual Memory Size {0}", .VirtualMemorySize)
           Console.WriteLine("Working Set {0}", .WorkingSet)
       End With
   End Sub

End Module</source>

Base Priority 8
Handle count 87
Process ID (PID) 3424
Machine Name .
Main Module System.Diagnostics.ProcessModule (main.exe)
Main Window Title
Max Working Set 1413120
Min Working Set 204800
Modules System.Diagnostics.ProcessModuleCollection
Nonpage System Memory Size 4508
Paged Memory Size 9330688
Paged System Memory Size 105068
Peak Paged Memory Size 9330688
Peak Virtual Memory Size 92123136
Peak Working Set 5308416
Priority Boost Enabled True
Priority Class Normal
Private Memory Size 9330688
Priviledged Processsor Time 00:00:00.0156250
Name main
Processor Affinity 1
Start Time 11/05/2007 9:33:28 PM
Total Processor Time 00:00:00.0781250
User Processor Time 00:00:00.0625000
Virtual Memory Size 92057600
Working Set 5308416

Get current Process

<source lang="vbnet">Imports System.Diagnostics Module Module1

   Sub Main()
       Dim objProcess As New Process()
       objProcess = Process.GetCurrentProcess()
       With objProcess
           Console.WriteLine("Base Priority {0}", .BasePriority)
           Console.WriteLine("Handle count {0}", .HandleCount)
           Console.WriteLine("Process ID (PID) {0}", .Id)
           Console.WriteLine("Machine Name {0}", .MachineName)
           Console.WriteLine("Main Module {0}", .MainModule)
           Console.WriteLine("Main Window Title {0}", .MainWindowTitle)
           Console.WriteLine("Max Working Set {0}", .MaxWorkingSet)
           Console.WriteLine("Min Working Set {0}", .MinWorkingSet)
           Console.WriteLine("Modules {0}", .Modules)
           Console.WriteLine("Nonpage System Memory Size {0}",.NonpagedSystemMemorySize)
           Console.WriteLine("Paged Memory Size {0}", .PagedMemorySize)
           Console.WriteLine("Paged System Memory Size {0}",.PagedSystemMemorySize)
           Console.WriteLine("Peak Paged Memory Size {0}",.PeakPagedMemorySize)
           Console.WriteLine("Peak Virtual Memory Size {0}",.PeakVirtualMemorySize)
           Console.WriteLine("Peak Working Set {0}", .PeakWorkingSet)
           Console.WriteLine("Priority Boost Enabled {0}", .PriorityBoostEnabled)
           Console.WriteLine("Priority Class {0}", .PriorityClass)
           Console.WriteLine("Private Memory Size {0}",.PrivateMemorySize)
           Console.WriteLine("Priviledged Processsor Time {0}",.PrivilegedProcessorTime)
           Console.WriteLine("Name {0}", .ProcessName)
           Console.WriteLine("Processor Affinity {0}", .ProcessorAffinity)
           Console.WriteLine("Start Time {0}", .StartTime)
           Console.WriteLine("Total Processor Time {0}", .TotalProcessorTime)
           Console.WriteLine("User Processor Time {0}", .UserProcessorTime)
           Console.WriteLine("Virtual Memory Size {0}", .VirtualMemorySize)
           Console.WriteLine("Working Set {0}", .WorkingSet)
       End With
   End Sub

End Module</source>

Base Priority 8
Handle count 87
Process ID (PID) 2988
Machine Name .
Main Module System.Diagnostics.ProcessModule (main.exe)
Main Window Title
Max Working Set 1413120
Min Working Set 204800
Modules System.Diagnostics.ProcessModuleCollection
Nonpage System Memory Size 4508
Paged Memory Size 9330688
Paged System Memory Size 105068
Peak Paged Memory Size 9330688
Peak Virtual Memory Size 92123136
Peak Working Set 5308416
Priority Boost Enabled True
Priority Class Normal
Private Memory Size 9330688
Priviledged Processsor Time 00:00:00.0312500
Name main
Processor Affinity 1
Start Time 11/05/2007 9:33:27 PM
Total Processor Time 00:00:00.0781250
User Processor Time 00:00:00.0468750
Virtual Memory Size 92057600
Working Set 5308416

Get Process by ID

<source lang="vbnet">Imports System.Diagnostics Public Class Tester

   Public Shared Sub Main
       Dim pid As Integer = 12345
       Dim p As Process = Process.GetProcessById(pid)
       If p Is Nothing Then Return
       Try
           Console.WriteLine(p.Id.ToString())
           Console.WriteLine(p.ProcessName)
           Console.WriteLine(p.StartTime.ToLongTimeString())
           Console.WriteLine(p.PriorityClass.ToString())
           Console.WriteLine(p.VirtualMemorySize64.ToString())
           Console.WriteLine(p.WorkingSet64.ToString())
           If p.MainModule IsNot Nothing Then
               Console.WriteLine(p.MainModule.FileName)
               Console.WriteLine(p.MainModule.FileVersionInfo.FileDescription)
               Console.WriteLine(p.MainModule.FileVersionInfo.FileVersion)
           End If
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       Finally
           p.Close()
       End Try    
   End Sub

End Class</source>

Unhandled Exception: System.ArgumentException: Process with an Id of 12345 is not running.
   at System.Diagnostics.Process.GetProcessById(Int32 processId, String machineName)
   at System.Diagnostics.Process.GetProcessById(Int32 processId)
   at Tester.Main()

Get thread count in current process

<source lang="vbnet">Imports System.Diagnostics Module Module1

   Sub Main()
       Console.WriteLine("Thread Count: {0}", Process.GetCurrentProcess().Threads.Count)
   End Sub

End Module</source>

Thread Count: 3

Kill current process

<source lang="vbnet">Imports System.Diagnostics Module Module1

   Sub Main()

" Process.GetCurrentProcess.Kill()

   End Sub

End Module</source>

List all process in a ListView

<source lang="vbnet">Imports System.Diagnostics Imports System.Windows.Forms public class ProcessManager

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class Public Class Form1

   Private Sub ListProcesses()
       Dim ps() As Process
       Try
           ps = Process.GetProcesses()
           lvProcesses.BeginUpdate()
           lvProcesses.Clear()
           lvProcesses.Columns.Add("Name", 100, HorizontalAlignment.Left)
           lvProcesses.Columns.Add("ID", 60, HorizontalAlignment.Left)
           lvProcesses.Columns.Add("Priority", 60, HorizontalAlignment.Right)
           lvProcesses.Columns.Add("Memory", 100, HorizontalAlignment.Right)
           Dim p As Process
           For Each p In ps
               Dim lvi As ListViewItem = New ListViewItem()
               lvi.Text = p.ProcessName
               lvi.SubItems.Add(p.Id.ToString())
               lvi.SubItems.Add(p.BasePriority.ToString())
               lvi.SubItems.Add(p.WorkingSet64.ToString())
               lvProcesses.Items.Add(lvi)
           Next p
           lvProcesses.EndUpdate()
       Catch e As Exception
           MessageBox.Show(e.Message)
       End Try
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       ListProcesses()
   End Sub
   Private Sub btnKillProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKillProcess.Click
       If MessageBox.Show(Me, "Stop Process" + lvProcesses.SelectedItems(0).Text, "Stop", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = DialogResult.Cancel Then
           Return
       End If
       Dim pid As Integer = Int32.Parse(lvProcesses.SelectedItems(0).SubItems(1).Text)
       Dim p As Process = Process.GetProcessById(pid)
       If p Is Nothing Then Return
       If Not p.CloseMainWindow() Then p.Kill()
       p.WaitForExit()
       p.Close()
       ListProcesses()
   End Sub
   Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
       ListProcesses()
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1

   Inherits System.Windows.Forms.Form
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   Private components As System.ruponentModel.IContainer
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.btnRefresh = New System.Windows.Forms.Button
       Me.label1 = New System.Windows.Forms.Label
       Me.btnKillProcess = New System.Windows.Forms.Button
       Me.btnNewProcess = New System.Windows.Forms.Button
       Me.lvProcesses = New System.Windows.Forms.ListView
       Me.btnProcessProp = New System.Windows.Forms.Button
       Me.SuspendLayout()
       "
       "btnRefresh
       "
       Me.btnRefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
       Me.btnRefresh.Location = New System.Drawing.Point(557, 11)
       Me.btnRefresh.Margin = New System.Windows.Forms.Padding(4)
       Me.btnRefresh.Name = "btnRefresh"
       Me.btnRefresh.Size = New System.Drawing.Size(116, 35)
       Me.btnRefresh.TabIndex = 11
       Me.btnRefresh.Text = "Refresh(&R)"
       Me.btnRefresh.UseVisualStyleBackColor = True
       "
       "label1
       "
       Me.label1.AutoSize = True
       Me.label1.Location = New System.Drawing.Point(13, 24)
       Me.label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
       Me.label1.Name = "label1"
       Me.label1.Size = New System.Drawing.Size(112, 15)
       Me.label1.TabIndex = 10
       Me.label1.Text = "Processes"
       "
       "btnKillProcess
       "
       Me.btnKillProcess.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
       Me.btnKillProcess.Location = New System.Drawing.Point(509, 347)
       Me.btnKillProcess.Margin = New System.Windows.Forms.Padding(4)
       Me.btnKillProcess.Name = "btnKillProcess"
       Me.btnKillProcess.Size = New System.Drawing.Size(164, 29)
       Me.btnKillProcess.TabIndex = 9
       Me.btnKillProcess.Text = "Stop(&K)"
       Me.btnKillProcess.UseVisualStyleBackColor = True
       "
       "btnNewProcess
       "
       Me.btnNewProcess.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
       Me.btnNewProcess.Location = New System.Drawing.Point(362, 347)
       Me.btnNewProcess.Margin = New System.Windows.Forms.Padding(4)
       Me.btnNewProcess.Name = "btnNewProcess"
       Me.btnNewProcess.Size = New System.Drawing.Size(139, 29)
       Me.btnNewProcess.TabIndex = 8
       Me.btnNewProcess.Text = "New(&N)"
       Me.btnNewProcess.UseVisualStyleBackColor = True
       "
       "lvProcesses
       "
       Me.lvProcesses.Location = New System.Drawing.Point(13, 54)
       Me.lvProcesses.Margin = New System.Windows.Forms.Padding(4)
       Me.lvProcesses.MultiSelect = False
       Me.lvProcesses.Name = "lvProcesses"
       Me.lvProcesses.Size = New System.Drawing.Size(659, 285)
       Me.lvProcesses.TabIndex = 7
       Me.lvProcesses.UseCompatibleStateImageBehavior = False
       Me.lvProcesses.View = System.Windows.Forms.View.Details
       "
       "btnProcessProp
       "
       Me.btnProcessProp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
       Me.btnProcessProp.Location = New System.Drawing.Point(32, 347)
       Me.btnProcessProp.Margin = New System.Windows.Forms.Padding(4)
       Me.btnProcessProp.Name = "btnProcessProp"
       Me.btnProcessProp.Size = New System.Drawing.Size(153, 29)
       Me.btnProcessProp.TabIndex = 6
       Me.btnProcessProp.Text = "Properties(&P)"
       Me.btnProcessProp.UseVisualStyleBackColor = True
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(679, 395)
       Me.Controls.Add(Me.btnRefresh)
       Me.Controls.Add(Me.label1)
       Me.Controls.Add(Me.btnKillProcess)
       Me.Controls.Add(Me.btnNewProcess)
       Me.Controls.Add(Me.lvProcesses)
       Me.Controls.Add(Me.btnProcessProp)
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Private WithEvents btnRefresh As System.Windows.Forms.Button
   Private WithEvents label1 As System.Windows.Forms.Label
   Private WithEvents btnKillProcess As System.Windows.Forms.Button
   Private WithEvents btnNewProcess As System.Windows.Forms.Button
   Private WithEvents lvProcesses As System.Windows.Forms.ListView
   Private WithEvents btnProcessProp As System.Windows.Forms.Button

End Class</source>

Open Default editor for text file

<source lang="vbnet">Imports System.Diagnostics public class Test

  public Shared Sub Main
       Dim new_process As New Process
       new_process.StartInfo.FileName = "test.txt"
       new_process.StartInfo.Verb = "Open"
       new_process.Start()
  End Sub

End class</source>

Print properties of Process

<source lang="vbnet">Imports System.Diagnostics Public Class Tester

   Public Shared Sub Main
       Dim pid As Integer = 12345
       Dim p As Process = Process.GetProcessById(pid)
       If p Is Nothing Then Return
       Try
           Console.WriteLine(p.Id.ToString())
           Console.WriteLine(p.ProcessName)
           Console.WriteLine(p.StartTime.ToLongTimeString())
           Console.WriteLine(p.PriorityClass.ToString())
           Console.WriteLine(p.VirtualMemorySize64.ToString())
           Console.WriteLine(p.WorkingSet64.ToString())
           If p.MainModule IsNot Nothing Then
               Console.WriteLine(p.MainModule.FileName)
               Console.WriteLine(p.MainModule.FileVersionInfo.FileDescription)
               Console.WriteLine(p.MainModule.FileVersionInfo.FileVersion)
           End If
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       Finally
           p.Close()
       End Try    
   End Sub

End Class</source>

Unhandled Exception: System.ArgumentException: Process with an Id of 12345 is not running.
   at System.Diagnostics.Process.GetProcessById(Int32 processId, String machineName)
   at System.Diagnostics.Process.GetProcessById(Int32 processId)
   at Tester.Main()

Start a process

<source lang="vbnet">Imports System.Diagnostics Imports System.Windows.Forms public class ProcessStartForm

  public Shared Sub Main
       Application.Run(New FormStartInfo)
  End Sub

End class Public Class FormStartInfo

   Private Sub ListVerb(ByVal filename As String)
       cbxVerb.Items.Clear()
       Dim sinfo As ProcessStartInfo = New ProcessStartInfo(filename)
       cbxVerb.Items.AddRange(sinfo.Verbs)
   End Sub

   Private Sub FormStartInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       cbxStyle.SelectedIndex = 2
   End Sub
   Private Sub txtFileName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFileName.Leave
       ListVerb(txtFileName.Text)
   End Sub
   Private Sub btnExplorer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExplorer.Click
       Dim dlg As OpenFileDialog = New OpenFileDialog()
       dlg.CheckFileExists = True
       dlg.Filter = "(*.exe)|*.exe|(*.*)|*.*"
       If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
           txtFileName.Text = dlg.FileName
           ListVerb(dlg.FileName)
       End If
   End Sub
   Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
       Dim si As ProcessStartInfo = New ProcessStartInfo()
       si.FileName = txtFileName.Text
       si.Arguments = txtParam.Text
       si.ErrorDialog = chkErrDlg.Checked
       si.UseShellExecute = chkUseShell.Checked
       If cbxVerb.SelectedIndex <> -1 Then si.Verb = cbxVerb.Text
       si.WorkingDirectory = txtWorkDir.Text
       If cbxStyle.SelectedIndex = 0 Then
           si.WindowStyle = ProcessWindowStyle.Maximized
       ElseIf cbxStyle.SelectedIndex = 1 Then
           si.WindowStyle = ProcessWindowStyle.Minimized
       Else
           si.WindowStyle = ProcessWindowStyle.Normal
       End If
       Try
           Process.Start(si)
       Catch ex As Exception
           Console.WriteLine(ex.Message)
       End Try
   End Sub

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class FormStartInfo

   Inherits System.Windows.Forms.Form
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   Private components As System.ruponentModel.IContainer
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.cbxStyle = New System.Windows.Forms.ruboBox
       Me.cbxVerb = New System.Windows.Forms.ruboBox
       Me.txtWorkDir = New System.Windows.Forms.TextBox
       Me.txtParam = New System.Windows.Forms.TextBox
       Me.btnCancel = New System.Windows.Forms.Button
       Me.btnOK = New System.Windows.Forms.Button
       Me.chkErrDlg = New System.Windows.Forms.CheckBox
       Me.chkUseShell = New System.Windows.Forms.CheckBox
       Me.label5 = New System.Windows.Forms.Label
       Me.label4 = New System.Windows.Forms.Label
       Me.label3 = New System.Windows.Forms.Label
       Me.label2 = New System.Windows.Forms.Label
       Me.btnExplorer = New System.Windows.Forms.Button
       Me.txtFileName = New System.Windows.Forms.TextBox
       Me.label1 = New System.Windows.Forms.Label
       Me.SuspendLayout()
       "
       "cbxStyle
       "
       Me.cbxStyle.DropDownStyle = System.Windows.Forms.ruboBoxStyle.DropDownList
       Me.cbxStyle.FormattingEnabled = True
       Me.cbxStyle.Items.AddRange(New Object() {"Maximized", "Minimized", "Regular"})
       Me.cbxStyle.Location = New System.Drawing.Point(109, 134)
       Me.cbxStyle.Margin = New System.Windows.Forms.Padding(4)
       Me.cbxStyle.Name = "cbxStyle"
       Me.cbxStyle.Size = New System.Drawing.Size(487, 23)
       Me.cbxStyle.TabIndex = 29
       "
       "cbxVerb
       "
       Me.cbxVerb.DropDownStyle = System.Windows.Forms.ruboBoxStyle.DropDownList
       Me.cbxVerb.FormattingEnabled = True
       Me.cbxVerb.Location = New System.Drawing.Point(109, 105)
       Me.cbxVerb.Margin = New System.Windows.Forms.Padding(4)
       Me.cbxVerb.Name = "cbxVerb"
       Me.cbxVerb.Size = New System.Drawing.Size(487, 23)
       Me.cbxVerb.TabIndex = 28
       "
       "txtWorkDir
       "
       Me.txtWorkDir.Location = New System.Drawing.Point(109, 166)
       Me.txtWorkDir.Margin = New System.Windows.Forms.Padding(4)
       Me.txtWorkDir.Name = "txtWorkDir"
       Me.txtWorkDir.Size = New System.Drawing.Size(487, 25)
       Me.txtWorkDir.TabIndex = 27
       "
       "txtParam
       "
       Me.txtParam.Location = New System.Drawing.Point(109, 71)
       Me.txtParam.Margin = New System.Windows.Forms.Padding(4)
       Me.txtParam.Name = "txtParam"
       Me.txtParam.Size = New System.Drawing.Size(487, 25)
       Me.txtParam.TabIndex = 26
       "
       "btnCancel
       "
       Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
       Me.btnCancel.Location = New System.Drawing.Point(358, 266)
       Me.btnCancel.Margin = New System.Windows.Forms.Padding(4)
       Me.btnCancel.Name = "btnCancel"
       Me.btnCancel.Size = New System.Drawing.Size(100, 29)
       Me.btnCancel.TabIndex = 25
       Me.btnCancel.Text = "Cancel(&C)"
       Me.btnCancel.UseVisualStyleBackColor = True
       "
       "btnOK
       "
       Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
       Me.btnOK.Location = New System.Drawing.Point(174, 266)
       Me.btnOK.Margin = New System.Windows.Forms.Padding(4)
       Me.btnOK.Name = "btnOK"
       Me.btnOK.Size = New System.Drawing.Size(100, 29)
       Me.btnOK.TabIndex = 24
       Me.btnOK.Text = "OK(&O)"
       Me.btnOK.UseVisualStyleBackColor = True
       "
       "chkErrDlg
       "
       Me.chkErrDlg.AutoSize = True
       Me.chkErrDlg.Location = New System.Drawing.Point(16, 239)
       Me.chkErrDlg.Margin = New System.Windows.Forms.Padding(4)
       Me.chkErrDlg.Name = "chkErrDlg"
       Me.chkErrDlg.Size = New System.Drawing.Size(134, 19)
       Me.chkErrDlg.TabIndex = 23
       Me.chkErrDlg.Text = "Error Dialog"
       Me.chkErrDlg.UseVisualStyleBackColor = True
       "
       "chkUseShell
       "
       Me.chkUseShell.AutoSize = True
       Me.chkUseShell.Location = New System.Drawing.Point(16, 211)
       Me.chkUseShell.Margin = New System.Windows.Forms.Padding(4)
       Me.chkUseShell.Name = "chkUseShell"
       Me.chkUseShell.Size = New System.Drawing.Size(209, 19)
       Me.chkUseShell.TabIndex = 22
       Me.chkUseShell.Text = "Start Process"
       Me.chkUseShell.UseVisualStyleBackColor = True
       "
       "label5
       "
       Me.label5.AutoSize = True
       Me.label5.Location = New System.Drawing.Point(13, 173)
       Me.label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
       Me.label5.Name = "label5"
       Me.label5.Size = New System.Drawing.Size(82, 15)
       Me.label5.TabIndex = 21
       Me.label5.Text = "Dir:"
       "
       "label4
       "
       Me.label4.AutoSize = True
       Me.label4.Location = New System.Drawing.Point(13, 140)
       Me.label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
       Me.label4.Name = "label4"
       Me.label4.Size = New System.Drawing.Size(82, 15)
       Me.label4.TabIndex = 20
       Me.label4.Text = "Window style"
       "
       "label3
       "
       Me.label3.AutoSize = True
       Me.label3.Location = New System.Drawing.Point(12, 110)
       Me.label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
       Me.label3.Name = "label3"
       Me.label3.Size = New System.Drawing.Size(52, 15)
       Me.label3.TabIndex = 19
       Me.label3.Text = "Predicate"
       "
       "label2
       "
       Me.label2.AutoSize = True
       Me.label2.Location = New System.Drawing.Point(12, 76)
       Me.label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
       Me.label2.Name = "label2"
       Me.label2.Size = New System.Drawing.Size(52, 15)
       Me.label2.TabIndex = 18
       Me.label2.Text = "Parameter"
       "
       "btnExplorer
       "
       Me.btnExplorer.Location = New System.Drawing.Point(502, 27)
       Me.btnExplorer.Margin = New System.Windows.Forms.Padding(4)
       Me.btnExplorer.Name = "btnExplorer"
       Me.btnExplorer.Size = New System.Drawing.Size(100, 29)
       Me.btnExplorer.TabIndex = 17
       Me.btnExplorer.Text = "Browser."
       Me.btnExplorer.UseVisualStyleBackColor = True
       "
       "txtFileName
       "
       Me.txtFileName.Location = New System.Drawing.Point(9, 27)
       Me.txtFileName.Margin = New System.Windows.Forms.Padding(4)
       Me.txtFileName.Name = "txtFileName"
       Me.txtFileName.Size = New System.Drawing.Size(484, 25)
       Me.txtFileName.TabIndex = 16
       "
       "label1
       "
       Me.label1.AutoSize = True
       Me.label1.Location = New System.Drawing.Point(13, 9)
       Me.label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
       Me.label1.Name = "label1"
       Me.label1.Size = New System.Drawing.Size(307, 15)
       Me.label1.TabIndex = 15
       Me.label1.Text = "Executable file name"
       "
       "FormStartInfo
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(612, 306)
       Me.Controls.Add(Me.cbxStyle)
       Me.Controls.Add(Me.cbxVerb)
       Me.Controls.Add(Me.txtWorkDir)
       Me.Controls.Add(Me.txtParam)
       Me.Controls.Add(Me.btnCancel)
       Me.Controls.Add(Me.btnOK)
       Me.Controls.Add(Me.chkErrDlg)
       Me.Controls.Add(Me.chkUseShell)
       Me.Controls.Add(Me.label5)
       Me.Controls.Add(Me.label4)
       Me.Controls.Add(Me.label3)
       Me.Controls.Add(Me.label2)
       Me.Controls.Add(Me.btnExplorer)
       Me.Controls.Add(Me.txtFileName)
       Me.Controls.Add(Me.label1)
       Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
       Me.MaximizeBox = False
       Me.MinimizeBox = False
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Private WithEvents cbxStyle As System.Windows.Forms.ruboBox
   Private WithEvents cbxVerb As System.Windows.Forms.ruboBox
   Private WithEvents txtWorkDir As System.Windows.Forms.TextBox
   Private WithEvents txtParam As System.Windows.Forms.TextBox
   Private WithEvents btnCancel As System.Windows.Forms.Button
   Private WithEvents btnOK As System.Windows.Forms.Button
   Private WithEvents chkErrDlg As System.Windows.Forms.CheckBox
   Private WithEvents chkUseShell As System.Windows.Forms.CheckBox
   Private WithEvents label5 As System.Windows.Forms.Label
   Private WithEvents label4 As System.Windows.Forms.Label
   Private WithEvents label3 As System.Windows.Forms.Label
   Private WithEvents label2 As System.Windows.Forms.Label
   Private WithEvents btnExplorer As System.Windows.Forms.Button
   Private WithEvents txtFileName As System.Windows.Forms.TextBox
   Private WithEvents label1 As System.Windows.Forms.Label

End Class</source>

Start main module in current process

<source lang="vbnet">Imports System.Diagnostics Module Module1

   Sub Main()

" Process.Start(Process.GetCurrentProcess().MainModule.FileName)

   End Sub

End Module</source>

Start process by setting file name

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
   
       Dim proc As System.Diagnostics.Process
       proc = New System.Diagnostics.Process()
       proc.StartInfo.FileName = "c:\\text.txt"
       proc.Start()
   End Sub

End Class</source>

Unhandled Exception: System.ruponentModel.Win32Exception: The system cannot find the file specified
   at System.Diagnostics.Process.StartWithShellExecuteEx(ProcessStartInfo startInfo)
   at System.Diagnostics.Process.Start()
   at Tester.Main()