[الشاكي لله]

جربت على MDI

والنتيجة تمام 100%

شوف الصورة كيف احرك بانسيابية




شكلي بنزل مشروعك وبشوف ويش قصته

---

كشفت المشكلة

لأنك استعملت RightToLeft

لهكذا لااحب استعمال اللغة العربية في برامجي لمثل هذه الاسباب

المهم حاولت في الكود وضبط 100%

PHP كود :

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

    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        Drag = True
        MouseX = Me.PointToClient(Cursor.Position).X
        MouseY = Me.PointToClient(Cursor.Position).Y
    End Sub

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

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