VB 5,6 - Close window when you know its title - API

[vb_paladin]

This is not my code, I found it on PSC and it was very useful to me.

'**************************************
' Name: Close a window
' Description:Close a window when you know the title of
' this window.
' Uses the API FindWindow and PostMessage.
' By: Marcus Schmitt
'
' This code is copyrighted and has
' limited warranties.  Please see [url]http://www.Planet-Sourcecode.com/vb/scripts/Sho
' wCode.asp?txtCodeId=35934&lngWId=1[/url]
'for details.'**************************************
 
Option Explicit
 
 
Private Declare Function PostMessage Lib "user32" _
    Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
 
Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal szClass$, ByVal szTitle$) As Long
    Private Const WM_CLOSE = &H10
 
 
Private Sub Command1_Click()
    Dim hWnd, retval As Long
    Dim WinTitle As String
    WinTitle = "Recycle Bin" '<- Title of Window
    hWnd = FindWindow(vbNullString, WinTitle)
    retval = PostMessage(hWnd, WM_CLOSE, 0&, 0&)
End Sub