Foro de elhacker.net

Saludos muchachos estoy creando 2 textbox para hacer un dragdrop entre ellos e intercambien sus contenidos tengo este code

Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
    Dim Texto As String
    Texto = Text1.Text
    Text1.Text = Source.Text
    Source.Text = Texto
End Sub
 
Private Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
    Dim Texto As String
    Texto = Text2.Text
    Text2.Text = Source.Text
    Source.Text = Texto
End Sub
 

el problema viene que para que funcione tengo que poner para cada textbox la propiedad dragmode =1 lo cual hace que el texto no se a selecionable el evento click ya no tiene efecto, mi pregunta si existe alguna forma de dejar el texto selecionable para ser editado como cuando tiene el valor dragmode=0, gracias de antemano

Si utilizas OLEDrag&Drop en su lugar?

De ultima te tocara lidiar con eventos del mouse :xD