Problema con Lisbox y Texbos

[kakinets]

Holas....
les explico tengo un Lixbox (list1) y un texbox(tex1)

Mi problema es q le quiero hacer clip al item1 y q aparezca en tex1 una serie de ejemplos cualquier cosa y cuando le haga click al item2 aparescan otra cosa cual duda agrenmen kaki_jmh@hotmail.com

gracias

[goodbye]

Pega este

Código [Seleccionar] Expandir

Private Sub Form_Load() ' Rellena con 5 items
    Dim i
    For i = 1 To 5
        List1.AddItem "Item" & i
    Next i
End Sub

Private Sub List1_Click() ' El efecto que buscabas??
    Text1 = List1.List(List1.ListIndex)
End Sub

[kakinets]

Hola loko....Eso es lo q queria pero la diferencia es  q cuando yo haga clip en Item1 aparescas en el text Me estoy vañando buenvo mas tarde y cuando haga clip en el item2 aparezca vusco novi tetona

No se si entendes lo q quiero

PD:los Item se llama Item1 Item2

gracias