Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, _
ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Function TirarPrograma(Programa As String) As Boolean
TirarPrograma = IIf(SendMessage(FindWindow(0&, Programa), &H10, 0, 1) = 0, True, False)
End Function