Public Declare Function SetForegroundWindow Lib "user32" Alias _
  "SetForegroundWindow" (ByVal hwnd As IntPtr) As Integer
Private Declare Auto Function IsIconic Lib "user32"  Alias "IsIconic" (ByVal _
hwnd As IntPtr) As Int32
Private Declare Auto Function OpenIcon Lib "user32"  Alias "OpenIcon" (ByVal _
hwnd As IntPtr) As Int32

Dim p As Process
Dim Ret As Int32
Dim hWndMain As IntPtrDim MyProcesses() As Process = Process.GetProcessesByName( _
  Process.GetCurrentProcess().ProcessName)
For Each p In MyProcesses     
' eigenen Prozeß ausschließen   
If (p.Id <> Process.GetCurrentProcess().Id) Then hWndMain = p.MainWindowHandle()
If (IsIconic(hWndMain) <> 0) Then ' Fenster minimiert?      
   Ret = OpenIcon(hWndMain)                            
             If Ret = 0 Then        
                Throw New Exception( "Error restoring Window from icon");     
             End If    
   End If  
   Ret = SetForegroundWindow(hWndMain)      
             If Ret = 0 Then      
                         Throw New Exception("Error bringing Window to front")    
             End If
       Exit Sub  
End If
Next