' API für das Beenden einer Anwendung
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hWnd As Long, _
  ByVal wMsg As Long, _ 
  ByVal wParam As Long, _
  ByVal lParam As Long) As Long
 
' Konstante - Fenster schliessen
Private Const WM_CLOSE = &H10

SendMessage hWnd, WM_CLOSE, 0&, 0&

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de