Dim MyArray( 6 , 3 )

Private Sub UserForm_Initialize()
    Dim i As Single

    ListBox1.ColumnCount =  3         'The 1st list box contains 3 data columns
    ListBox2.ColumnCount = 6        'The 2nd box contains  6  data columns

    'Load integer values into first column of MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
    Next i

    'Load columns  2  and three of MyArray
    MyArray( 0 ,  1 ) =  "Zero" 
    MyArray( 1 ,  1 ) =  "One" 
    MyArray( 2 ,  1 ) =  "Two" 
    MyArray( 3 ,  1 ) =  "Three" 

    MyArray( 4 ,  1 ) =  "Four" 
    MyArray( 5 ,  1 ) =  "Five" 

    MyArray( 0 ,  2 ) =  "Zero" 
    MyArray( 1 ,  2 ) =  "Un ou Une" 
    MyArray( 2 ,  2 ) =  "Deux" 
    MyArray( 3 ,  2 ) =  "Trois" 
    MyArray( 4 ,  2 ) =  "Quatre" 
    MyArray( 5 ,  2 ) =  "Cinq" 

    'Load data into ListBox1 and ListBox2
    ListBox1.List() = MyArray
    ListBox2.Column() = MyArray

End Sub

Copyright(c)  1996  Microsoft Corporation.