' Benötigte API-Deklarationen
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 = &H10

' nHWnd = Handle der Anwendung
SendMessage nHWnd, WM_CLOSE, 0&, 0&

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de