جابجا کردن فرم در حالت 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]

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