ich denke das passt....
Code
Dim _myprocess As String = Process.GetCurrentProcess().ProcessName.ToString
Dim myProcesses() As Process
Dim myProcess As Process
Dim zahl As Integer = 0
myProcesses = Process.GetProcessesByName(_myprocess)
For Each myProcess In myProcesses
zahl = zahl + 1
If zahl >= 2 Then
'tue was
End If
Next
Alles anzeigen
EDIT: dann kannste ja noch anstatt dem 'tue was' z.B. das der den Prozess schließen soll