حرکت ابزار ها

[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