' 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

Why the World Needs More Technology Leadership
As a fact, technology has touched every single aspect of our lives. And there are some technology giants in today’s world which have been frequently opined to have a strong influence on recent overall technological influence. Moreover, those tech giants have popular technology leaders leading the companies toward achieving greatness.