' API-Deklarationen
Public Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Public Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
 
Public Const WM_CLOSE = &H10

Dim nHWnd As Long
nHWnd = FindWindow(vbNullString, "Exakter Fenstertitel")
If nHWnd <> 0 Then
  ' Fenster schließen
  SendMessage nHWnd, WM_CLOSE, 0&, 0&
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de