<font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" (ByVal sClassName As String, _
  ByVal lpWindowName As String) As Long
 
Private Declare Function SetForegroundWindow Lib _
  "user32" (ByVal hwnd As Long) As Long

Dim lHandle As Long
Dim lRet As Long
 
lHandle = FindWindow(vbNullString, "exakter Fenstertitel")
If lHandle <> 0 Then
  SetForegroundWindow lHandle
  SendKeys "%{F4}", True
End If