''' <summary>
''' ProcessName is the name of the program (no extension) you want to kill
''' exemple : KillProcess("newvalley") will kill the program newvalley.exe
''' </summary>
''' <param name="ProcessName"></param>
''' <remarks></remarks>
Private Sub KillProcess(ByVal ProcessName As String)
Dim x As Integer
Dim oFoundProcess As System.Diagnostics.Process
Try
oFoundProcess = System.Diagnostics.Process.GetProcessesByName(ProcessName)(x)
oFoundProcess.Kill()
Catch ex As Exception
MessageBox.Show("Error N° " & Err.Number & vbCrLf & Err.Description & vbCrLf & " In Module " & Err.Source, My.Application.Info.ProductName)
End Try
End Sub