Agregar elementos en un ListBox y colocarlos en un TextBox

[kakinets]

es fasil la solucion le agregas adelantes de cada capital Text1.Text y la coma si quieres y fue.

Mira si va andar escribiendo codigos largo que me juego la cabesa que lo copia y lo pega sin entender lo que hace.No es de forro pero yo lo hacia.

          Suerte muchachos

[Cicklow]

Esto es lo que nesesita:
el text 1 al iniciarce
[              ] 'Vacio
Precione en el pais Argentina y entonces el text1 es:
[Buenos Aires]

Coloka el ; al final
[Buenos Aires;]

Presiona otro pais
[Buenos Aires; Brasilia]

Presiona Otro Pais:
[Peru]

Osea que si pone el ; se agregan, yo entiendo lo que vos decis (espero), :

Colokar esto:
Text1.Value = Text1.Value & " " & List1.Text

Y lso que kiera separar le pone el ; y listo
jejeje pero es perder tiempo... o komo yo lo creo

saludos!!!

[kakinets]

por que pusiste text1.value si es text1.text

          Saludos

[Cicklow]

error de tipe, igual uno es de solo lectura y bla bla bla bla

[kakinets]

yo creo que esto es lo que pidio:

Código [Seleccionar] Expandir

If List1.Text = "Argentina" Then
Text1.Text = Text1.Text & "Bueno Aires;"
ElseIf List1.Text = "Brasil" Then
Text1.Text = Text1.Text & "Brasilia;"
ElseIf List1.Text = "Peru" Then
Text1.Text = Text1.Text & "Lima;"
End If

Si no es hasi no se.....Suerte muchachos

[renga73]

Listo gente ya lo solucione hice esto

If txtCC.Text <> "" Then
txtCC.Text = txtCC.Text & ", " & SMS(List1.ListIndex)
Else
txtCC.Text = SMS(List1.ListIndex)
End If

'SMS es un arreglo de las 5 capitales
Gracias a todos

[[VolkS]]

Lo que postie yo funcioanaba a la perfeccion!

se manejaba con los index de la lista =(