Yo te entieno lo que keres hacer:
si ya seleccione un pis que me muestre su capital, pero si al text box le agrego ";", que lo que haga, es agregar al texto box otra capital.
EJ:
Presione en Argentina (el text box dice ahora: BS AS), y al text box le coloko ";", y ahora resiono en Brasil, ahora el text box dira: BS AS; Bracilia.
Eso es lo que keres hacer.....
weno manos a la obras (lo estoy haciendo sin el VB, asike si hay un error me avisas que te dice):
'Fuera de los eventos:
Dim Capitales(0 TO 5)
Private Sub Form_Load()
'Agregas las opciones
List1.AddItem "Argentina"
List1.AddItem "Brasil"
List1.AddItem "Peru"
List1.AddItem "Ecuador"
List1.AddItem "Mexico"
Capitales = ("Buenos Aires","Brasilia","Nidea 1","Nidea 2","Nidea 3")
End Sub
Private Sub List1_Click()
'Agregas lo que se haya seleccionado al texbox
IF RIGHT(LIST1.TEXT,1)=";" THEN
Text1.Text = Text1.Text & Capitales(List1.ListIndex)
ELSE
Text1.Text = Capitales(List1.ListIndex)
ENDIF
End Sub
Espero que sea de tu ayuda, el indixce del array deve coincidir con el indice del listado.
Fijate bien si esto funciona:
Capitales = ("",""....etc)
porke en una de esas me confundi con php
sino tendras que poner:
Capitales(0)="Buenos Aires"
Capitales(1)="Brasilia"
etc...
Saludos!