Public Sub AddStrings(ByVal s As String()) For i As Integer = s.GetLowerBound(0) To s.GetUpperBound(0) ObjectList.Add(s(i)) Next End Sub