怎样使窗体不能移动?

Question

怎样使窗体运行后不能被移动?谢谢!

Answer 1

楼上正解，我来说的详细一点：-----------------------------------------------------------------------
Moveable 属性
      返回或设置一个值，该值指定了对象是否可移动。语法object.Moveable = boolean部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
boolean 布尔表达式，指定对象是否可以移动。 
设置值boolean 的设置值是：常数 值 描述 
True -1 可移动对象。 
False 0 不可移动对象。 

Answer 2

Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYCOMMAND = &H0&
Private Const SC_MOVE = &HF010&'调用如下：
    
Private Sub MDIForm_Load()
    Dim MyMenu As Long
    Dim TempLng As Long
    MyMenu = GetSystemMenu(Me.hwnd, 0)
    RemoveMenu MyMenu, SC_MOVE, MF_BYCOMMAND
End Sub