Lock Move Form

DESKRIPSI
Mengunci form agar tidak dapat digerakkan.
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1	Text	LOCK	Command1

Masukkan souce ini ke dalam Form Private Sub Command1_Click() If Command1.Caption = "LOCK" Then lhSysMenu = GetSystemMenu(Me.hwnd, False) lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND) Command1.Caption = "UNLOCK" Else lhSysMenu = GetSystemMenu(Me.hwnd, True) lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND) Command1.Caption = "LOCK" End If End Sub

Masukkan souce ini ke dalam 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&