Dim lCount as Long
Dim Arr() as String
Dim i as IntegerlCount = Combo1.ListCount
ReDim Arr(lCount) as String
For i=0 To lCount
Combo1.ListIndex=i
Arr(i) = Combo1.text
Next i
Dim Arr() as String
Dim i as IntegerlCount = Combo1.ListCount
ReDim Arr(lCount) as String
For i=0 To lCount
Combo1.ListIndex=i
Arr(i) = Combo1.text
Next i
Dim Arr() as String
Dim i as IntegerlCount = Combo1.ListCount
ReDim Arr(lCount) as String
For i=0 To lCount-1
Arr(i) = Combo1.List(i)
Next i