<font color=green>' API-Deklaration</font>
Private Declare Function SetForegroundWindow Lib "user32" _
  (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
  Dim lngHWnd As Long
 
  lngHWnd = IsEXERunning("winword.exe", Handle)
  If lngHWnd <> 0 Then
   <font color=green> ' OK, Fenster gefunden
    ' Jetzt aktivieren und via SendKeys Text übergeben</font>
    SetForegroundWindow lngHWnd
    SendKeys "Hallo!"
  Else
    MsgBox "WinWord nicht gestartet!"
  End If
End Sub