[mohamed haroon]

(05-08-15, 10:18 AM)الطالب كتب : سلام

كود :

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

موفقين

شكرا على ردك