Public Module ShutdownTest  

   ' Đây là hàm API dùng để thoát khỏi Windows.
    Private Declare Function ExitWindowsEx Lib "user32" _
      (ByVal uFlags As Long, ByVal dwReserved As Long) As Long  
    ' Kiểu liệt kê này giữ các hằng liên quan.

    Private Enum ExitWindowsFlags

        ' Sử dụng hằng này để đăng xuất mà không khởi động lại.

        Logoff = 0  

        ' Sử dụng hằng này để khởi động lại hệ thống.

        Reboot = 2  

        ' Sử dụng hằng này để tắt hệ thống
        ' (và tắt máy tính, nếu phần cứng hỗ trợ).

        Shutdown = 1

        ' Sử dụng hằng này để buộc hệ thống tắt hay
        ' khởi động lại (ngay cả khi người dùng đã hủy bỏ nó).
        Force = 4
    End Enum

    Public Sub Main()
        ExitWindowsEx(ExitWindowsFlags.Logoff, 0&)
    End Sub
End Module