Public Class Form1
    ' Verwendete API Funktionen 
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As _
      IntPtr) As Integer
    Private Declare Function GetForegroundWindow Lib "user32" () As Integer
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd _
      As IntPtr, ByRef lpdwProcessId As Long) As Integer
    Public Declare Function IsWindowVisible Lib "user32.dll" (ByVal hwnd As _
    IntPtr) As Boolean
 
    Dim WithEvents zeit As New Timer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For Each p As Process In Process.GetProcesses
            If IsWindowVisible(p.MainWindowHandle) AndAlso p.MainWindowTitle _
              <> String.Empty Then
                Me.ListBox1.Items.Add(p.MainWindowTitle)
            End If
        Next
 
    End Sub
 
    Private Sub zeit_tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles zeit.Tick
        Dim temp As String = Me.ListBox1.SelectedItem
        For Each p As Process In Process.GetProcesses
            If p.MainWindowTitle = temp Then
                SetForegroundWindowEx(p.MainWindowHandle)
            End If
        Next
    End Sub
 
    'quelle: 
    ' http://www.microsoft.com/germany/msdn/library/visualtools/vb6/FensterInDe
    ' nDesktopVordergrundBringen.mspx?mfr=true
 
    ' Verwenden Sie die Funktion SetForegroundWindowEx statt der 
    ' API Funktion SetForegroundWindow ausschließlich, wenn das 
    ' betroffene Fenster tatsächlich in den Vordergrund gebracht 
    ' werden muss. 
    Private Function SetForegroundWindowEx(ByVal hWndWindow As Long) As Boolean
        ' Dient dem Setzen des Vordergrundfensters mit der Funktion 
        ' SetForegroundWindow, die sich unter neueren Windows-Versionen 
        ' anders verhält als unter Windows 95 und Windows NT 4.0. 
        ' Der Rückgabewert ist True, wenn das Fenster erfolgreich in den 
        ' Vordergrund gebracht werden konnte. 
        Dim lThreadForeWin As Long  ' Thread-ID für das aktuelle 
        ' Vordergrundfenster 
        Dim lThreadWindow As Long   ' Thread-ID für das in hWndWindow 
        ' spezifizierte 
        ' Fenster, das in den Vordergrund des Desktops 
        ' gebracht werden soll. 
        ' Falls das Fenster dem gleichen Thread wie das aktuelle 
        ' Vordergrundfenster angehört, ist kein Workaround erforderlich: 
        lThreadWindow = GetWindowThreadProcessId(hWndWindow, 0)
        lThreadForeWin = GetWindowThreadProcessId(GetForegroundWindow(), 0)
        If lThreadWindow = lThreadForeWin Then
            ' Vordergrundfenster und zu aktivierendes Fenster gehören zum 
            ' gleichen Thread. SteForegroundWindow allein reicht aus: 
            SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
        Else
            ' Das Vordergrundfenster gehört zu einem anderen Thread als das 
            ' Fenster, das neues Vordergrundfenster werden soll. Mittels 
            ' AttachThreadInput erhaten wir kurzzeitig Zugriff auf die 
            ' Eingabeverarbeitung des Threads des Vordergrundfensters, 
            ' so dass SetForegroundWindow wie erwartet arbeitet: 
            SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
        End If
    End Function
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        zeit.Interval = 1000
        zeit.Start()
    End Sub
End Class