Option Explicit
' API-Deklarationen, welche benötigt werden
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
 
Private Const WM_CLOSE As Long = &H10
 
Public Function close_App(ByVal AppName As String) As Boolean
Dim Res As Long
 
 Res = FindWindow(vbNullString, AppName)
 ' Fenster mit dem angegebenen Namen suchen
 ' Wenn das Fenster nicht gefunden wird, liefert die Funktion eine 0
 ' ansonsten liefert die Funktion die Zugriffsnummer der Applikation
 ' und sendet die Windowsnachricht, dass Fenster zu schliessen.
 
  If Res = 0 Then
   close_App = False
   Exit Function
   Else
   SendMessage Res, WM_CLOSE, 0, 0  ' Nachricht senden, dass das Fenster ge-
   close_App = True                 ' schlossen werden soll.
  End If
 
End Function

Option Explicit
 
Private Sub Form_Load()
 ' Aufruf wie folgt
 ' close_App Applikationsname
 ' Achtung! Der angegebene Applikationsname muss EXAKT mit dem übereinstimmen,
 ' mit dem Fenster welches geschlossen werden soll (ansonsten geht es nicht!)
 ' Habe kein Acrobatreader aber anhand des Windowsrechner sollte das Prinzip
 ' klar werden... Zum Ausprobieren, einfach den Windowsrechner starten danach 
 ' das 
 ' Programm ausführen und schauen, was mit dem Windowsrechner passiert...
 
 If close_App("Rechner") = True Then
  MsgBox ("Erfolgreich")
  Else
  MsgBox ("Fehlgeschlagen")
 End If
End Sub

_________________________________________________________________________________________________
Internet-Adressen innerhalb des (..) WWW beginnen stets mit der Buchstabenfolge http://www. (LG Duisburg, AZ 8 O 219/99)