Option Explicit
Dim mstrArray(10) As String
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Call CargarArray
' Lo siguiente no es necesario pero sirve para demostrar
' lo que puede hacerse con el array una vez cargado
Call CargarCombo
End Sub
Sub CargarArray()
mstrArray(1) = "ROJO"
mstrArray(2) = "VERDE"
mstrArray(3) = "AZUL"
mstrArray(4) = "AMARILLO"
mstrArray(5) = "MAGENTA"
mstrArray(6) = "NEGRO"
mstrArray(7) = "NARANJA"
mstrArray(8) = "CELESTE"
mstrArray(9) = "CAFE"
mstrArray(10) = "VIOLETA"
End Sub
Sub CargarCombo()
Dim lngCnt As Long
For lngCnt = 1 To 10
List1.AddItem mstrArray(lngCnt)
Next lngCnt
End Sub