[VB] Memindahkan form yang tidak mempunyai border

Deklarasi: buat sebuah form, dan label
Atur property form menjadi None. Tambahkan Kode dibawah ini

Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const HTCAPTION As Integer = 2
Private Const WM_NCLBUTTONDOWN As Integer = &HA1

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
     ReleaseCapture
     If Button = 1 Then
         SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
          End If
End Sub

Intinya untuk memindahkan formnya, kita harus melakukannya melalui labelnya!. OK, berkreasilah!!


Jangan Lupa Komentar Yaa..