Foros del web, para los que viven de bits

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

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 =)

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

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

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