Option Compare Database
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

' Menu flags for Add/Check/EnableMenuItem()
Const MF_BYCOMMAND = &H0& '16ﾋﾞｯﾄ値はﾒﾆｭｰID
Const MF_BYPOSITION = &H400& '16ﾋﾞｯﾄ値は既存のﾒﾆｭｰの項目番号

' System Menu Command Values
Const SC_MOVE = &HF010&       'ウインドウを移動

Dim hMenu As Long
Dim rc As Long

Private Sub Form_Open(Cancel As Integer)
    'フォームのハンドルからシステムメニューのハンドルを取得
    hMenu = GetSystemMenu(Me.hwnd, 0&)
End Sub

Private Sub フォームを固定_Click()
    'システムメニューの「移動(M)」を削除する
    rc = RemoveMenu(hMenu, SC_MOVE, MF_BYCOMMAND)

    If rc = 1 Then
        MsgBox ("動かないでしょ？")
    Else
        MsgBox ("失敗したみたい！")
    End If
End Sub

Private Sub フォームを固定を解除_Click()
    'システムメニューの「移動(M)」を削除する
    rc = GetSystemMenu(Me.hwnd, 1&)

    If rc = 0 Then
        MsgBox ("動くよ！")
    Else
        MsgBox ("失敗したみたい！")
    End If
End Sub