上面这几位仁兄说的只是限制了最大化最小化按钮,在程序运行的时候把鼠标放在窗体边缘还是可以拖动窗体的大小的。所以我建议在窗体的Form_Resize()事件中限制拖动。可以加个IF语句,如:
frmWidth.width=Form1.width '先把窗体大小存入变量
frmHeight.Height=Form1.Height
If Form1.WindowState <> 1 Then '没有最小化的时候,可以再加上没有最大化的时候
Form1.Width = frmWidth.Width
Form1.Height = frmHeight.Height
End If