[ZoRRo]

شكرا أستاذ إبراهيم ,,

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

كود :

    Private Property MoveForm As Boolean

    Private Property MoveForm_MousePos As Point

ثم نضع الكود التالي في الإفنت التالية

كود :

       
    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
        If e.Button = MouseButtons.Left Then
            MoveForm = True
            Me.Cursor = Cursors.Hand
            MoveForm_MousePos = e.Location
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        If MoveForm Then
            Me.Location = Me.Location + (e.Location - MoveForm_MousePos)
        End If
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
        If e.Button = MouseButtons.Left Then
            MoveForm = False
            Me.Cursor = Cursors.Default

        End If
    End Sub

أحببت المشاركة للفائدة