Binaryworld - ListboxToArray - Retrieve an array of strings from a ListBox or ComboB ... [ VB -> Forms & Controls ]

' Returns a string array containing all the elements
' of the specifid ListBox or ComboBox control
'
' Example:
' Dim strArray() As String
' strArray = ListBoxToArray(Combo1)

Public Function ListBoxToArray(ctrl As Control) As String()
  Dim index As Long

  ' if the control isn't a ListBox, ComboBox or one of their
  ' variant, the following statement raises an error
  If ctrl.ListCount > 0 Then
    ReDim res(0 To ctrl.ListCount - 1) As String

    For index = 0 To strl.ListCount - 1
      res(index) = ctrl.List(index)
    Next
  End If
  ListBoxToArray = res()
End Function