چطوری میشه موقعیت فرم رو با کلیک تغییر داد؟

[combo_ci]

سلام
من یه برنامه نوشتم که با کلیک روی هر جای فرم و کشیدن فرم به جاهای دیگه صفحه میشه جای فرم رو تغییر داد
روی این فرم یه picture box وجود داره که من میخوام وقتی رو اوون picture box کردم و جای دیگه صفحه کشیدم فرم حرکت کنه
کسی میتونه کمک کنه؟

[choobin84]

Dim p1 As Point

Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
_MouseDown(e)
End Sub

Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
_MouseMove(e)
End Sub

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
_MouseDown(e)
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
_MouseMove(e)
End Sub

Private Function _MouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
If (e.Button = MouseButtons.Left) Then
p1 = New Point(e.X, e.Y)
'p1 = New Point(Label1.Location.X, Label1.Location.Y)
End If
End Function

Private Function _MouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
If (e.Button = MouseButtons.Left) Then
Dim MousePos As Point = Control.MousePosition
MousePos.X = MousePos.X - p1.X 'Label1.MousePosition.X - p1.X '
MousePos.Y = MousePos.Y - p1.Y 'Label1.MousePosition.Y - p1.Y '
Me.Location = MousePos
End If
End Function

اینم نمونه برنامه....

[choobin84]

سلام
من یه برنامه نوشتم که با کلیک روی هر جای فرم و کشیدن فرم به جاهای دیگه صفحه میشه جای فرم رو تغییر داد

تعجب کردم وقتی سئوال رو خوندم و بعد کدتون رو دیدم.
جواب سئوالتون توی کد خودتون بود، دقت نکردید؟

[combo_ci]

ممنون از جوابتون
اگر همون مثالی که ضمینه کردین ببینین وقتی روی عکس برای حرکت کلیک میکنیم فرم یه مقدار میپره سمت راست
دلیلش چیه به نظر شما؟میشه راهنماییم کنین