' Prüfen, ob Anwendunng bereits gestartet
        If System.Diagnostics.Process.GetProcessesByName( _
          System.Reflection.Assembly.GetExecutingAssembly.GetName.Name).Length _
          > 1 Then
            MsgBox("Achtung!" & Chr(13) & _
              "Es läuft bereits eine Instanz dieser Anwendung." & _
              vbCrLf & vbCrLf & _
              "Ein mehrfaches gleichzeitiges Ausführen ist " & _
              "nicht möglich!")
 
            ' Anwendung beenden
            End
        End If