Código
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
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