Public Declare Function RemoveMenu Lib "user32" Alias "RemoveMenu"(ByVal hMenu As IntPtr,ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Public Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu"(ByVal hwnd As IntPtr, ByVal bRevert As Boolean) As Integer
Public Const SC_MOVE As Integer= &HF010
Public Const MF_BYCOMMAND As Integer = 0
在窗体的 Load 双击中添加:
Dim hMenu As Integer = GetSystemMenu(Me.Handle, false)
RemoveMenu(hMenu, SC_MOVE, MF_BYCOMMAND)