Como cerrar varias ventanas

[_DRIGIN_]

wenas
aguien sabe como seria para cerrar varias ventanas activas , sin saber si estan abiertas o no , por ejemplo:

Código [Seleccionar] Expandir


Código:
timer1_timer()
AppActivate "Antivirus" or "Firewall"
SendKeys "%{F4}", True
end sub
pero este code no me vale ya k si no ai abierta una ventana llamada antivirus da error y no sige hacia la de firewall.Prove tmb con:

Código [Seleccionar] Expandir


AppActivate "Antivirus"
SendKeys "%{F4}", True
AppActivate "Firewall"
SendKeys "%{F4}", True
pero asi tampoco me vale ya k sino ai primero una k se llame antivirus ps el programa ya no sige, y yo lo keria acer eske cierre cualkiera de las 2 sin k tenga k estar abierta la anterior.
Tmb intenté con esto:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
On Error GoTo a:
AppActivate "Antivirus"
SendKeys "%{F4}", True
Exit Sub
a:
On Error GoTo b:
AppActivate "Firewall"
SendKeys "%{F4}", True
Exit Sub
b:
On Error GoTo c:
AppActivate "Security"
SendKeys "%{F4}", True
Exit Sub
c:
End Sub

Pero me da este error:
error '5' en tiempo de ejecucion:
llamada a argumento o procedimiento no valida.
en la linea

Código [Seleccionar] Expandir

AppActivate "Firewall"
es deicir, siempre da un error en el segundo appactivate.
haber si alguien me puede ayudar
Salu2