Private Sub Bewegung(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs)
        For Each Button As Button In EquipmentSelections
            If e.Button = Windows.Forms.MouseButtons.Left Then
                'Der ausgewälte Button wird verschoben 
                If Button Is sender Then
                    Button.Location = _
                    New Point(Button.Location.X + e.X - p.X, Button.Location.Y _
                    + e.Y - p.Y)
                End If
            End If
        Next
    End Sub

Hobby Programmierer u. "Komponist"
https://www.youtube.com/channel/UCRuq2bapBxHV9ZA1tPI223g