Public 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
 
Public Const WM_CLOSE = &H10

SendMessage hWnd, WM_CLOSE, 0&, 0&

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de