Вы вроде можете. Я пытаюсь что-то подобное в данный момент, что мне удалось получить работать с CategoryAttribute. В настоящее время, однако, это останавливает совместную работу таблицы свойств, хотя это вызывается в конструкторе кнопки:
Dim PC As PropertyDescriptorCollection = TypeDescriptor.GetProperties(Me)
For i As Integer = 0 To PC.Count - 1
Dim att As BrowsableAttribute = DirectCast(PC(i).Attributes(GetType(BrowsableAttribute)), BrowsableAttribute)
If Not att Is Nothing Then
If att.Browsable = True Then
Dim cat As Reflection.FieldInfo = att.GetType.GetField("Browsable", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance Or Reflection.BindingFlags.Public Or Reflection.BindingFlags.Static Or Reflection.BindingFlags.IgnoreCase)
If Not cat Is Nothing Then
cat.SetValue(att, False)
End If
End If
End If
Next
Надеюсь, это поможет