Public Class SeparatorDesigner
    Inherits ControlDesigner
 
    'Allows only horizontal/vertical resizing
    Public Overrides ReadOnly Property SelectionRules() As SelectionRules
        Get
            Return SelectionRules.LeftSizeable Or SelectionRules.RightSizeable _
              Or SelectionRules.Visible Or SelectionRules.Moveable
        End Get
    End Property
 
    Protected Overrides Sub PostFilterProperties(ByVal properties As _
      System.Collections.IDictionary)
        Dim Ausnahme() As String = { "MaximumSize", "MinimumSize", "Size", _
        "Width"}
        Dim propertyClaer As New List(Of String)
          For Each obj As String In properties.Keys
            If Not Ausnahme.Contains(obj) Then
                propertyClaer.Add(obj)
            End If
          Next
 
          For Each obj As String In propertyClaer
              properties.Remove(obj)
          Next
 
        MyBase.PostFilterProperties(properties)
    End Sub
 
End Class

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
    <Browsable(False)>
    Public Overloads Property MaximumSize As Size
        Get
 
        End Get
        Set(MaximumSize As Size)
            'Me.MaximumSize = MaximumSize
        End Set
    End Property
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
    <Browsable(False)>
    Public Overloads Property MinimumSize As Size
        Get
 
        End Get
        Set(MinimumSize As Size)
 
        End Set
    End Property

    <BrowsableAttribute(False)>
    Public Overloads Property Width As Integer
        Get
            Return 0
        End Get
        Set(Width As Integer)
 
        End Set
    End Property