كيف يمكن تحريك الفورم بأستخدام زر

كود :
   Private isDragging As Boolean = False

    Private mouseOffset As Point

    

    Private Sub Button5_MouseDown(sender As Object, e As MouseEventArgs) Handles Button5.MouseDown

        If e.Button = MouseButtons.Left Then

            isDragging = True

            mouseOffset = New Point(e.X, e.Y)

        End If

    End Sub



    Private Sub Button5_MouseMove(sender As Object, e As MouseEventArgs) Handles Button5.MouseMove

        If isDragging Then

            Dim newLocation As Point = Me.Location

            newLocation.X = newLocation.X + e.X - mouseOffset.X

            newLocation.Y = newLocation.Y + e.Y - mouseOffset.Y

            Me.Location = newLocation

        End If

    End Sub



    Private Sub Button5_MouseUp(sender As Object, e As MouseEventArgs) Handles Button5.MouseUp

        If e.Button = MouseButtons.Left Then

            isDragging = False

        End If

    End Sub