امکان جابجایی button پس از اجرا؟

با سلام
من می خوام یه برنامه بنویسم که در آن بتونم Buttonی که روی فرم گذاشتم رو به همه جای فرم درگ کنم(وقتی دکمه ی مووس پایین هست بشود Button رو گرفت و انور و اونور کشید)

از دوستان اگه کسی بتونه کد مورد نظر رو بذاره خیلی ممنون میشم

با تشکر فراوان

یکم فکر کنی بد نیست ....اینم دوتا راه بقیشم با خودت :چشمک:






Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move (X - Command1.Width / 2), (Y - Command1.Height / 2)
End Sub

دوست گرامی انم کدش

نقل قول:

---

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Drag
intx = X
inty = Y

End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - intx
Source.Top = Y - inty
End Sub

---

نقل قول:

---

نوشته شده توسط vb.C++‎‎

یکم فکر کنی بد نیست ....اینم دوتا راه بقیشم با خودت :چشمک:






Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

---

دست شما درد نکه خیلی کارم رو را انداختین
من زیاد وارد نیستم ولی این سوال دانشگاهی بود :لبخندساده:
قبلاً یکی از دوستان از من پرسید برای من هم جالب شد.