Menggerakan Form Tanpa Title

bagi yang gi belajar VB nih da sedikit kode untuk menggerakan form tanpa judul, w dapet code ini dari vb-bego.com, wong enyong jg masih belajar. kode’y ga baanyak kok loe-loe pade tinggal copy paste za.


'awal coding ---------------------------------------
Private Declare Function SendMessage Lib “User32″ _
Alias “SendMessageA” (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Declare Sub ReleaseCapture Lib “User32″ ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer , X As Single, Y As Single)
Dim Judul As Long
If Button = 1 Then
Call ReleaseCapture
Judul = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub
'akhir coding ---------------------------------------------

kalo ga berhasil contact za ke d_triady@yahoo.com