[محمد.احمد]

السلام عليكم جميعآ
يمكن تحريك اداه عن طريق السحب ولافلات ؟

كود :

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Button1.Location = New Point(MousePosition.X And MousePosition.Y)
    End Sub

لا اقدر على سحب الاداه بهذا الكود

[سعود]

تحتاج لعدة احداث
ويوجد للاخ ابي رائد مثال رائع
http://vb4arb.com/vb/thread-628.html

[beep]

تفضل اخي هذا الكود

كود :

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        X = Control.MousePosition.X - Button1.Location.X
        Y = Control.MousePosition.Y - Button1.Location.Y
    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.X -= (X)
            NewPoint.Y -= (Y)
            Button1.Location = NewPoint
        End If
    End Sub