API Visual Basic dilinde Bilgisayarı Kapama

Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

private sub kapa_click()
a=exitwindowsex(0,0)
b=exitwindowsex(0,1)
c=exitwindowsex(1,0)
d=exitwindowsex(1,1)
end sub