Close a window
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
Close a window when you know the title of
this window.
Uses the API FindWindow and PostMessage.
Original Author: Marcus Schmitt
Code
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.