Membekukan Form

- 1 Form dan 1 Commandbutton.
----------------------------------------------------------------------------------
- Pada Module

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd _
As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu _
As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const SC_MOVE = &HF010&
Public Const MF_BYCOMMAND = &H0&
----------------------------------------------------------------------------------
- Pada Form

Private Sub Command1_Click()
   lhSysMenu = GetSystemMenu(Me.hwnd, False)
   lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND)
End Sub