Butona tiklanmasiyla bilgisayari kapatan program'Form Kodlari Kod: Private Sub Command1_Click Dim MsgRes As Long MsgRes = MsgBox If MsgRes = vbNo Then Exit Sub Call ExitWindowsEx(Kapat, 0) Unload Me End Sub 'Modül Kodlari Declare Function ExitWindowsEx& Lib "user32" Public Const ZorlaKapat = 4 Public Const LOGOFF = 0 Public Const KapatAc = 2 Public Const Kapat = 1