Pasar elemento de listBox a textBox

[rositafresita]

Hola, mi duda es como puedo pasar un elemento de un ListBox a un cuadro de texto cuando doy doble click sobre el elemento de la lista. El codigo que utilizo es el siguiente
Private Sub List1_DblClick()
Dim a As String
a = List1.List(ListIndex)
Text3.Text = a
El problema es que siempre copia solo el primer elemento aunque de doble click en el tercero o el cuarto. Tambien lo intente con ListCount -1 pero así no hace nada.
De antemano gracias a quien me pueda ayudar

[jbucaro.gt]

Hola, en este momento no estoy en mi maquina pero ya probaste con selecteditem o algo asi List1.SelectedItem

Desearia poder ayudarte mas pero no tengo vb en esta maquina =( creo con lo que te sugiero podras realizarlo si no te responden a tu pregunta posteare mas tarde cuando llegue a mi casa =)

[tazzito]

mira prueba esto, yo lo acabo de probar y no tuve problema alguno.

Text3.Text = List1.List(List1.ListIndex)

[rositafresita]

Gracias a todos, ya probé con lo que me han dicho y no sale, pero resulta que ya encontré la solución y solo era escribiendo "List1.Text" y asignarlo a un cuadro de texto o variable.
Mas facil de lo que parecía
Tks

[emilio_alac05]

Hola amigos disculpen la molestia pero tengo este problema al pasar el valor del list a un capo texto no me toma el valor del list como se hace este es el codigo que utilizo

Código:

Dim Lineas() As String
Dim i As Integer

Lineas = Split(rx, vbNewLine)
    
    For i = LBound(Lineas) To UBound(Lineas)
        List1.AddItem Lineas(i)
                 
         Text4.Text = List1.Text
        
    Next

saludos, muchas gracias

[pkj]

Seguramente el valor de ListIndex antes de seleccionar algun elemento de la lista es = -1 de modo que no apunta a ningun elemento.

Para irlos mostrando en el textbox debes poner Text4.Text=List1.List(List1.ListCount -1)

De ese modo te muestra el ultimo añadido. Ademas para que se actualice el textbox cada vez que cambia puede que tengas que añadir un DoEvents.

Claro que sera tan rapido que no lo veras. Si quieres que se carguen todos los elementos tendras que ir añadiendo saltos de linea:

Text4.Text=Text4.Text & List1.List(List1.ListCount -1) & vbcrlf

Saludos