[الطالب]

سلام

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dragg()
    End Sub

#Region "Dragging"
    Dim startX As Integer
    Private Sub Dragg()
        For Each Control As Control In Me.Controls
            If TypeOf Control Is Button Then
                AddHandler Control.MouseDown, AddressOf startDrag
                AddHandler Control.MouseMove, AddressOf whileDragging
            End If
        Next
    End Sub
    Private Sub startDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        startX = e.X
    End Sub
    Private Sub whileDragging(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            sender.Location = New Point(sender.Location.X + e.X - startX, sender.Location.Y)
        End If
    End Sub
#End Region

End Class

موفقين