VML Web Controls

#Region "Copyright (c) Justin Carasick. All rights reserved"
'--------------------------------------------------------------------------
' <copyright>Copyright (c) Justin Carasick. All rights reserved.</copyright>
' <author>Justin Carasick</author>
' <contact>jcarasick@gmail.com</contact>
'--------------------------------------------------------------------------
#End Region
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Drawing.Design
<Serializable(), PersistenceMode(PersistenceMode.Attribute)> _
Public Class LineEndPointProperties
    Enum ArrowStyleEnum
        None
        Block
        Classic
        Diamond
        Oval
        Open
    End Enum
    Enum ArrowWidthEnum
        ArrowNarrow
        ArrowMedium
        ArrowWide
    End Enum
    Enum ArrowLengthEnum
        ArrowShort
        ArrowMedium
        ArrowLong
    End Enum
    Private _ArrowStyle As ArrowStyleEnum
    Private _ArrowLength As ArrowLengthEnum
    Private _ArrowWidth As ArrowWidthEnum
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible), _
    NotifyParentProperty(True)> _
    Public Property ArrowStyle() As ArrowStyleEnum
        Get
            Return _ArrowStyle
        End Get
        Set(ByVal Value As ArrowStyleEnum)
            _ArrowStyle = Value
        End Set
    End Property
    <NotifyParentProperty(True)> _
    Public Property ArrowWidth() As ArrowWidthEnum
        Get
            Return _ArrowWidth
        End Get
        Set(ByVal Value As ArrowWidthEnum)
            _ArrowWidth = Value
        End Set
    End Property
    <NotifyParentProperty(True)> _
    Public Property ArrowLength() As ArrowLengthEnum
        Get
            Return _ArrowLength
        End Get
        Set(ByVal Value As ArrowLengthEnum)
            _ArrowLength = Value
        End Set
    End Property
    <Description("Define The VML End Point Style")> _
    Overrides Function ToString() As String
        Return "(VML End Point Style)"
    End Function
End Class