屏蔽快捷菜单Alt＋F4

屏蔽快捷菜单Alt＋F4
Protected   Overrides   Function ProcessCmdKey() Function ProcessCmdKey()Function ProcessCmdKey()Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData = (Keys.Alt Or Keys.F4) Then
            Return True
        Else
            Return MyBase.ProcessCmdKey(msg, keyData)
        End If
End Function

Call ProcessCmdKey(msg, Keys.F4)

屏蔽窗体的关闭按钮。点击关闭按钮时，不关闭。
Private Sub FormMain_FormClosing()Sub FormMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
               e.Cancel = True
    End Sub