جابجا کردن فرم در حالت 0 Border Style

[alizanganeh]

فرمم رو از قسمت border style بدون نوار عنوان کردم
حالا نمیشه جابجاش کرد
چیکار کنم که بشه؟
ممنون

[arash020]

سلام
کد زیر رو توی رویداد mouse move فرم مینویسی:
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Me.hWnd, &HA1, 2, 0&)
End If

قبلش دوتا api زیر رو هم با کد زیر فراخونی کن(توی قسمت general فرم):

'==========Drag==========
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, lParam As Any) As Long
'============================

[alizanganeh]

دمت گرم
عالی بود
کارت حرف نداشت
خیلی نیاز داشتم
ممنون