' zusätzlich benötigte API
Private Declare Function SetForegroundWindow Lib "user32" _
  Alias "SetForegroundWindow" ( _
  ByVal hwnd As Long) As Long

Dim nHWnd As Long
nHWnd = IsEXERunning("ProgramB.exe", Handle)
If nHWnd <> 0 Then SetForegroundWindow nHWnd

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de