Cara Membuat Form Tidak Bisa Berpindah Dengan Vb.6

Jika anda berminat bisa dicoba, simple tapi penting untuk dipelajari

‘masukan coding di bawah ini kedalam modul. Pilih project – modul

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&

‘masukan coding dibawah ini kedalam form

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