حرکت ابزار ها

[amirparsa.s]

سلام من خیلی تو اینترنت تلاش کردم تا جواب سوالمو پیدا کنم
امید وارم شما جواب بدید حداقل
اگه بخوایم کاربر بتونه یه ابزار مثل textbox رو با drog and drop جابجا کنه چیکار باید بکنیم؟

[meys34]

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 Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Text1.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub