x = MsgBox("Computer is not responding",16,"Error")
x = MsgBox("Would you like to shutdown?",vbYesNo+vbInformation,"Error")
if x =6 then
yes = MsgBox("Sutting down.",48,"Shutdown Error")
run shutdown.bat
End if

if x =7 then
no = MsgBox("Are you sure? If you don't turn off the computer you could lose any unsaved files.",32,"Are you sure?")
end if