Chiusura di un eseguibile

[xegallo]

passa a closeapplication il nome che vedi nella tray

Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" _
    (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" _
    Alias "PostMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Public Function CloseApplication(byVal sAppCaption As String) As Boolean
    Dim lHwnd As Long
    Dim lRetVal As Long
    lHwnd = FindWindow(vbNullString, sAppCaption)
    If lHwnd <> 0 Then
        lRetVal = PostMessage(lHwnd, WM_CLOSE, 0&, 0&)
    End If
End Function