جابهجایی فرم بدون استفاده از نوار عنوان

یه تیکه برنامه میخوام که هر موقع کاربر ماوس رو روی فرو پایین نگه داشت بهش اجازه بده که فرم رو جا به جا کنه.. لطفا کمک کنید....

2 متغییر عمومی برای ذخیره سازی مختصات X و Y تعریف کن
در رویداد mouse move این متغییر عمومی رو با استفاده از متغییر محلی این تابع مقدار دهی کن
در رویداد mouse up اختلاف مقادیر( x , y ) و (top , left فرم) محسبه و در x0 , y0 بریز سپس left , top فرمت رو با x0 , y0 جمع کن

کد:

---

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" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim lngReturnValue As Long
  If Button = 1 Then
      Call ReleaseCapture
      lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

---