AGREGAR DATOS

VISTA FINALIZADA

VISTA DEL DISEÑO

PROGRAMACIÓN..

Option Explicit
Dim amigos(0 To 4) As String
Dim i As Integer


Private Sub cmdAmigos_Click()

lstAmigos.Clear
For i = 0 To 4
amigos(i) = InputBox("ingrese el nombre de un amigo:" & i)
lstAmigos.AddItem amigos(i)
Next


End Sub