RE:copiar contenido de listbox a textbox
Hola
Te pongo dos ejemplos, uno si los items los pasas a un textbox uno al lado del otro dejando un espacio entre items o otro separador y uno poniendo la propiedad MultiLine del textbo a True y poniendo los items uno debajo del otro, en este ejemplo tenemos ademas del textbox y listbox un comand Button:
Ejemplo uno al lado del otro
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Me.List1.ListCount
If i = 0 Then
Me.Text1.Text = Me.List1.List(i)
Else
Me.Text1.Text = Me.Text1.Text & " " & Me.List1.List(i)
End If
Next
End Sub
Ejemplo multiline
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Me.List1.ListCount
If i = 0 Then
Me.Text1.Text = Me.List1.List(i)
Else
Me.Text1.Text = Me.Text1.Text & vbCrLf & Me.List1.List(i)
End If
Next
End Sub
Saludos
Victor Collado