Cita:
Iniciado por culd
Código:
Dim Nombres(1 To 20) As String
Private Sub Form_Load()
Dim X As Integer
For X = 1 To 20
Nombres(X) = text1.tex ' quiero que me carge los nombres desde el text1
Next X
y de pues que me los mande los nombres hacia un list1.text
Dim Listadodenombres As String
For X = 1 To 20
Listadodenombres = Listadodenombres & vbNewLine & Nombres(X)
Next X
MsgBox "LOS NOMBRES SON: " & vbNewLine & Listadodenombres
End Sub
todo esto mientas oprimo en un CMB