[الشاكي لله]

نعم بهذه الطريقة

PHP كود :

Dim Drag As Boolean
    Dim MouseX As Integer
    Dim MouseY As Integer

    Private Sub MainPanel_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MainPanel.MouseDown
        Drag = True
        MouseX = Cursor.Position.X - Me.Left
        MouseY = Cursor.Position.Y - Me.Top
    End Sub

    Private Sub MainPanel_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MainPanel.MouseMove
        If (Drag) Then
            Me.Left = Cursor.Position.X - MouseX
            Me.Top = Cursor.Position.Y - MouseY
        End If
    End Sub

    Private Sub MainPanel_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MainPanel.MouseUp
        Drag = False
    End Sub 


موفق