' Zwei ListBoxen
        Browsable.Sorted = True
        NotBrowsable.Sorted = True
 
        ' TexBox1 Eigenschaften
        Dim pds As PropertyDescriptorCollection = _
           TypeDescriptor.GetProperties(TextBox1)
 
        For Each pd As PropertyDescriptor In pds
            Dim brattr As System.ComponentModel.BrowsableAttribute = _
              pd.Attributes(GetType(System.ComponentModel.BrowsableAttribute))
 
            If brattr IsNot Nothing AndAlso Not brattr.Browsable Then
                NotBrowsable.Items.Add(pd.DisplayName)
            Else
                Browsable.Items.Add(pd.DisplayName)
            End If
        Next

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