I am trying to get fields to list, from an array, in a listbox. I have created the listbox and the code below seems to run okay, but when the form with the list box runs, I get an error message telling me that Picklist1 is not an array. I have stared at the code below for a while. Maybe your fresh look at it will see the error I am making.

Private FieldCount,Kount
FieldCount = Fcount()
Dimension PickList1(FieldCount,1)

For Kount = 1 To FieldCount
PickList1(Kount,1) = Field(Kount)
Next Kount