Membekukan Form

'Deskripsi: Membuat agar form tidak dapat dipindahkan/digeser oleh user.
'           Anda bisa saja menge-set property Moveable pada Form menjadi False,
'           tapi jika Anda melakukannya pada saat runtime, Anda akan menemukan
'           pesan error. Coding ini akan menunjukkan kepada Anda mengatasi hal tsb.
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
'           2. Copy-kan coding berikut ke dalam editor form yang bertalian.
'----------------------------------------------------------------------------------

'Coding ini di 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&
'--- Batas coding di Module...

'--- Coding ini di Form
Private Sub Command1_Click()
 lhSysMenu = GetSystemMenu(Me.hwnd, False)
 lRetVal = RemoveMenu(lhSysMenu, SC_MOVE, MF_BYCOMMAND)
End Sub
'--- Batas coding di Form...