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 = &H10
 
Private Function CloseTheWin(Byval sWinName As String) As Boolean
    Dim hWnd As Long
    CloseTheWin = False   
 
    hWnd = FindWindow(vbNullchar, sWinName)
    If hWnd = 0 Then Exit Function
 
    CloseTheWin = CBool(SendMessage(hWnd, WM_Close, 0, 0&))
End Function