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