Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) 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
Dim hanDle As Long
Const WM_CLOSE = &H10
hanDle = FindWindow(0&, "About GVBox")
If hanDle > 0 Then
SendMessage hanDle, WM_CLOSE, 0, 0
End If
在上面的代码中程序找到标题为About GVBox窗口,然后发送WM_CLOSE.关于API函数,参见VB6.0中Add-in Manager中的VB 6 Api viewer.