'Setzt das Fenster in den Vordergrund
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Integer, ByVal _
  nCmdShow As Integer) As Integer
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As _
Integer) As Integer
 
Sub Main
  'Gibt an, ob die Anwendung bereits geladen wurde.
  Dim AppIsOpen As Boolean
 
  'Überprüft, ob die Anwendung bereits geladen wurde.
  Dim myProcess As Process = Process.GetCurrentProcess
 
  'Sucht alle Programme mit dem gleichen Namen.
  For Each P As Process In Process.GetProcessesByName(myProcess.ProcessName)
 
    'Prüft, ob das Pragramm schon geöffnet ist.
    AppIsOpen = (P.MainModule.FileName.ToLower = _
      myProcess.MainModule.FileName.ToLower) _
                 AndAlso (P.Id <> myProcess.Id)
 
    If AppIsOpen Then
      'Programm bereits gestartet
 
      'Setzt das Programm in den Vordergrund
      ShowWindow(P.MainWindowHandle.ToInt32, 2)
      SetForegroundWindow(P.MainWindowHandle.ToInt32)
 
      Exit Sub
 
    End If
  Next
 
  Application.Run(New frmMain)
 
End Sub