Posted on January 5, 2009
1
2
3
4
5
6
7
8
9
| 'Controls - How to load items from a Listbox into an array
Sub Main()
Dim I As Integer
Dim sListArray() As String
ReDim sListArray(List1.ListCount - 1)
For I = 0 To List1.ListCount - 1
sListArray(I) = List1.List(I - 1)
Next I
End Sub |