Kod:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean Private Const EWX_SHUTDOWN = 1 Private Const EWX_FORCE = 4 Private Const EWX_REBOOT = 2 Private Const EWX_LOGOFF = 0 Private Sub form_load() MsgBox "Buraya İstediğiniz Mesajı Yazabilirsiniz " End Sub Private Sub form_Terminate() kapat = ExitWindowsEx(EWX_SHUTDOWN, 1) If kapat = True Then Else MsgBox ("Hata oluştu") End If End Sub

__________________