Public Class Form1
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Dim WM_SYSCOMMAND As Integer = &H112
Dim SC_CLOSE As Integer = &HF060
If m.Msg = WM_SYSCOMMAND AndAlso CInt(m.WParam) = SC_CLOSE Then
''运行到这里就是点右上角的X来关闭的,下面的return就是不处理这个消息,也就是点X不能关闭窗体;
Me.WindowState = FormWindowState.Minimized
Return
End If
MyBase.WndProc(m)
End Sub
End Class