' 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