I'm trying to populate an array with selected items of the listbox and am getting this error: "Subscript out of range."
What am I doing wrong?
Here is my code:
Dim Clients() As Integer
Dim c as integer
For i = 0 To Me.Client_List.ListCount - 1
If Me.Client_List.Selected(i) Then
c = c + 1
redim preserve Clients(1 to c) as integer
Clients(i) = Me.Client_List.ItemData(i)