Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Load
Dim pr() As Process = Process.GetProcesses, vorkommen As Integer
        For Each p As Process In pr
            Try
                If p.MainModule.ModuleName = Application.ProductName & ".exe" _
                  Then 'der Produktname muß natürlich entsprechend gewählt 
                ' werden. 
                    vorkommen += 1
                    If vorkommen >= 2 Then 'Das Programm findet sich einmal 
                    ' selbst!
                        MsgBox("Es läuft bereits eine Instanz dieses Programms" _
                          & vbCrLf & "Bitte benutzen Sie diese!", _
                          MsgBoxStyle.OkOnly)
                        Me.Close()
                    End If
                End If
            Catch ex As Exception
'Das Try ....... Catch ist nötig, da offenbahr nicht alle Prozesse der Liste 
' über "MainModule.ModuleName" ausgewertet werden können. Bei "normalen" 
' Prozessen funktioniert das aber einwandfrei.
            End Try
        Next
End Sub

Dont debug, because there will allways be one more bug