كود تحريك النموذج بالمواس

ممكن تشرح اكثر ؟؟

أريد عند أسحب النموذج يتحرك كما يحدث في الأطار معا الماوس

انتهيت وقد وجدت الكود

وهو

Option Compare Database
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
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
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private blnDemoStarted  As Boolean

Private Sub تفصيل_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim lngReturnValue As Long
    If Button = 1 Then
    ReleaseCapture
    Call ReleaseCapture
    lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If
End Sub

كود مفيد وولد لدي افكار كثيييرة

بارك الله فيك على هذه الفائدة

هذا الكود يمكن استخدامه في حدث (عند الضغط على الماوس) على أي كائن سواء كان التفاصيل أو رأس النموذج أو نص تسمية أو مربع أو صورة أو ...الخ.

استسمح الأخ/ علي العامر وارفق مثال للكود الذي اعطانا اياه

تحريك نموذج بلا حدود بالماوس.rar

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم