Visual Basic - Problema con un listbox

ok, mi problemita no creo que sea complicado es solo que estoy haciendo un sistema de facturacion y quiero poner unos datos en un listbox, entoces cuando yo le de doble click quiero que la informacion se ponga en un textbox. Ya lo hice con 2 listbox los code fueron los siguientes:

Private Sub List1_DblClick()
List2.Clear
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If
Next i
End Sub

Gracias.

Por lo que yo quiero comprender, debes reemplazar la instrucción :
List2.AddItem List1.List(i)
por :
text1.text = list1.list(i)

Haber si es éso lo que deseas.- Un saludo