result = Msgbox ("Sir do you want to close all application ?", vbYesNo, "Maxim")
Select Case result.
Case vbYes.
MsgBox("Ok sir have good day!")
Dim objShell.
Set objShell = CreateObject("WScript.Shell")
Set objWmi = GetObject("winmgmts:")
strWmiq = "select * from Win32_Process where name='chrome.exe'"
Set objQResult = objWmi.Execquery(strWmiq)
For Each objProcess In objQResult.
intRet = objProcess.Terminate(1)
Next.
Case vbNo.
MsgBox("Ok sir good bye!")
End Select.