- 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 
-   
-