17-10-12, 05:25 PM
كاتب الموضوع : AhmedEssawy
حيث لا يشترط سحبه من ال Header :كود :
Private Sub Me_MouseDown(ByVal sender As Object, _
ByVal e As MouseEventArgs) _
Handles MyBase.MouseDown
mouseOffset = New Point(-e.X, -e.Y)
End Sub
Private Sub Me_MouseMove(ByVal sender As Object, _
ByVal e As MouseEventArgs) _
Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then
Dim mousePos As Point = Control.MousePosition
mousePos.Offset(mouseOffset.X, mouseOffset.Y)
Location = mousePos
End If
End Sub