VB các phương thức tắt ứng dụng

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
        Case 0
                'ko cho Unload tu control menu cua form
                MsgBox "ko cho Unload tu control menu cua Form"
                Cancel = True
        Case 1
                'ko cho Unload = mã: Unload ...
                MsgBox "ko cho Unload bang ma"
                Cancel = True
        Case 2
                'cho Unload khi Windows Shutdown
                MsgBox "Unload khi Windows Shutdown"
        Case 3
                'ko cho Unload bang TaskManager
                MsgBox "ko cho Unload bang TaskManager"
                Cancel = True
        Case 4
                'Unload khi form MDI unload
                MsgBox "Unload khi dong Form MDI"
                Cancel = True
    End Select
End Sub