Arrays Access 2000

[doop]

I am trying to load the contents from a 3 column listbox, into an array
anyone got any suggestions.

Thanks

 

[Jon K]

The code:-

Dim col As Integer
Dim row As Integer
Dim i As Integer
Dim j As Integer

col = ListBoxName.ColumnCount - 1
row = ListBoxName.ListCount - 1

Dim yourArray()
ReDim yourArray(col, row)

For i = 0 To col
For j = 0 To row
yourArray(i, j) = ListBoxName.Column(i, j)
Next j
Next i