'Agora vamos lá que eu saquei a Parada
'Declare estas funções
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
'Coloque o seguinte código em um botão
Private Sub Command1_Click()
Const NILL = 0&
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060
'contem a propriedade caption do form que estará ativo
'neste exemplo fecharemos a calculadora do windows
lpCaption$ = "Calculadora"
'procura uma janela que tenha o caption igual ao contido na variavel lpCaption$
Handle = FindWindow(vbNullString, lpCaption$)
'fecha a aplicação se ela estiver aberta
X& = SendMessage(Handle, WM_SYSCOMMAND, SC_CLOSE, NILL)
End Sub
'veja se funfa>>>>>é mel na chupeta<<<<<<