Agregar elementos en un ListBox y colocarlos en un TextBox

[renga73]

Lo que quiero es primero poner 5 elementos en un ListBox, y al clickear uno de ellos me aparezca en un TextBox lo siguiente
Ej:
ListBox
Argentina
Peru
Brasil

Clickeo en "Argentina" entonces me aparece en un
TextBox
Buenos Aires

Ahora si clickeo en "Brasil"...me aparece en el mismo TextBox q antes:
Buenos Aires, Brasilia 'se agrego Brasilia y una "," entre BA y Brasilia, q me sirve de separador.Por eso puse q es como cuando queres enviar un mail en hotmail, y le vas dando click a los contactos q se lo queres enviar.

[VisualGuallabo]

Espero que esto te sirva

Private Sub List1_Click()
Text1.Text =Text1.Text & "," & List1.Text
End Sub

[renga73]

Esta bueno eso, pero faltaria refinarlo un toque mas, porque me aparece una "," al principio innesecesariamente. Por ejemplo te digo lo q me aparece:
,Buenos Aires, Brasilia

La "," del principio hace q me de error lo q estoy haciendo

[vbx3m]

Colocalo asi:

Código:

If Text1.Text <> "" Then Text1.Text = Text1.Text & "," & List1.Text
If Text1.Text = "" Then Text1.Text = List1.Text

[RonAraya]

se me ocurre otra cosa, vamos a ver que te parece

toma un combobox y establecele la propiedad "sytle" a 1 -simple combo

luego estiras el combo al tamaño que gustes cargas el combo y listo

la propiedad simple combo del combobox coloca un textbox y abajo de el un listbox entonces cada vez que des clic a un elemneto del combobox este lo coloca en el textbox porque en sí son el mismo (ambos son el mismo combobox) :)


salu2

[VisualGuallabo]

'Como estamos en el ahorro de Agua y energia ahorremos Letras
Ja ja ja

If Text1.Text <> "" Then
Text1.Text = Text1.Text & "," & List1.Text
else
Text1.Text = List1.Text
End if

[renga73]

Iniciado por VisualGuallabo

'Como estamos en el ahorro de Agua y energia ahorremos Letras
Ja ja ja

If Text1.Text <> "" Then
Text1.Text = Text1.Text & "," & List1.Text
else
Text1.Text = List1.Text
End if

Buenisimo, gracias amigo eso era lo q nesecitaba, lo retoque un toque mas por algo q queria q haga distinto, pero eso fue el puntapie inicial
Igualmente agradezco a todos los demas por su cooperacion