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

تفضل أخي

هذا الكود رح يفيدك

Class Form1
	Private IsFormBeingDragged As Boolean = False
	Private MouseDownX As Integer
	Private MouseDownY As Integer

	Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown

    	If e.Button = MouseButtons.Left Then
        	IsFormBeingDragged = True
        	MouseDownX = e.X
        	MouseDownY = e.Y
    	End If
	End Sub

	Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp

    	If e.Button = MouseButtons.Left Then
        	IsFormBeingDragged = False
    	End If
	End Sub

	Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove

    	If IsFormBeingDragged Then
        	Dim temp As Point = New Point()

        	temp.X = Me.Location.X + (e.X - MouseDownX)
        	temp.Y = Me.Location.Y + (e.Y - MouseDownY)
        	Me.Location = temp
        	temp = Nothing
    	End If
	End Sub
End Class

كيفية تحريك نافذة بدون شريط عنوان

تحريك النافذة من أى نقطة عليها