Dim unbekannt As Object = Me.ToolStrip1 
        Dim pi As PropertyInfo = unbekannt.GetType().GetProperty("Items")
        Dim collection As IEnumerable = TryCast(pi.GetValue(unbekannt, _
          Nothing), IEnumerable)
        If collection IsNot Nothing Then
            Dim iter As IEnumerator = collection.GetEnumerator()
            While iter.MoveNext
                Debug.WriteLine(iter.Current.ToString())
            End While
        End If

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov