Hola gente amiga
Luego de no tener respuesta alguna.. ni siquiera para decirme " amigo no lo se....explicate mejor" o algo... me he puesto en hacerlo por mi mismo.... y lo logré.
Para todo aquel que necesite esto alguna vez... les dejo el codigo fuente para Visual Basic.net 2005 (FW2.0) .
Saludos
Código:
Private m_MouseIsDown As Boolean = False
Dim objeto As Object
' detecto que he presionado el boton del mouse, sobre mi control
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
m_MouseIsDown = True
End Sub
' detecto que estoy moviendo el control, y entonces activo el drag.
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If m_MouseIsDown Then
' esto sirve para que pueda arrastrar cualquieir tipo de control con tan solo indicar que objeto es.
objeto = Me.PictureBox1
PictureBox1.DoDragDrop(Me.PictureBox1, DragDropEffects.Copy Or DragDropEffects.Move)
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
m_MouseIsDown = False
End Sub
' aqui es donde paso dentro del panel, y le asigno la posicion superior izquierda.
Private Sub Panel1_Dragenter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragEnter
Dim nombre As String = objecto.name
Me.Panel1.Controls.Add(e.Data.GetData(objeto.GetType))
Me.Panel1.Controls.Item(nombre).Location = New Point(1, 1)
End Sub
de esta forma se puede hacer drag drop de controles.
Espero que le sirva a alguien. Saludos!!!!!