property6.vb

大名鼎鼎的mono是.NET平台的跨平台（支持linux

            End Set
        End Property
        Property OptionalInterfaceTest4(Optional ByVal optionalByValarrayInterfaceparam() As InterfaceA = Nothing) As delegatea
            Get
            End Get
            Set(ByVal value As delegatea)
            End Set
        End Property

        Property OptionalDelegateTest1(Optional ByVal optionalDelegateparam As DelegateA = Nothing) As classa
            Get
            End Get
            Set(ByVal value As classa)
            End Set
        End Property
        Property OptionalDelegateTest2(Optional ByVal optionalByValDelegateparam As DelegateA = Nothing) As Byte
            Get
            End Get
            Set(ByVal value As Byte)
            End Set
        End Property
        Property OptionalDelegateTest3(Optional ByVal optionalarrayDelegateparam As DelegateA() = Nothing) As Short
            Get
            End Get
            Set(ByVal value As Short)
            End Set
        End Property
        Property OptionalDelegateTest4(Optional ByVal optionalByValarrayDelegateparam() As DelegateA = Nothing) As Integer
            Get
            End Get
            Set(ByVal value As Integer)
            End Set
        End Property

        Property OptionalEnumTest1(Optional ByVal optionalEnumparam As EnumA = enuma.value) As Long
            Get
            End Get
            Set(ByVal value As Long)
            End Set
        End Property
        Property OptionalEnumTest2(Optional ByVal optionalByValEnumparam As EnumA = enuma.value) As Decimal
            Get
            End Get
            Set(ByVal value As Decimal)
            End Set
        End Property
        Property OptionalEnumTest3(Optional ByVal optionalarrayEnumparam As EnumA() = Nothing) As Single
            Get
            End Get
            Set(ByVal value As Single)
            End Set
        End Property
        Property OptionalEnumTest4(Optional ByVal optionalByValarrayEnumparam() As EnumA = Nothing) As Double
            Get
            End Get
            Set(ByVal value As Double)
            End Set
        End Property

    End Class

    Class ClassD
        Public Property Test() As system.int16
            Get
            End Get
            Set(ByVal value As system.int16)
            End Set
        End Property

        Private Property Test(ByVal privateTest As Integer) As system.int32
            Get
            End Get
            Set(ByVal value As system.int32)
            End Set
        End Property

        Protected Property Test(ByVal protectedTest As Short) As system.int64
            Get
            End Get
            Set(ByVal value As system.int64)
            End Set
        End Property

        Friend Property Test(ByVal friendTest As Byte) As system.uint16
            Get
            End Get
            Set(ByVal value As system.uint16)
            End Set
        End Property

        Protected Friend Property Test(ByVal protectedfriendTest As Long) As system.uint32
            Get
            End Get
            Set(ByVal value As system.uint32)
            End Set
        End Property

    End Class

    MustInherit Class ClassE
        Property Test() As system.boolean
            Get
            End Get
            Set(ByVal value As system.boolean)
            End Set
        End Property

        Overridable Property OverridesProperty() As system.char
            Get
            End Get
            Set(ByVal value As system.char)
            End Set
        End Property

        MustOverride Property MustOverrideProperty() As system.string
        Overridable Property NotOverridableProperty() As system.datetime
            Get
            End Get
            Set(ByVal value As system.datetime)
            End Set
        End Property

        Overridable Overloads Property OverridesOverloadsProperty() As system.double
            Get
            End Get
            Set(ByVal value As system.double)
            End Set
        End Property
        Overridable Overloads Property OverridesOverloadsProperty(ByVal Param1 As String) As system.single
            Get
            End Get
            Set(ByVal value As system.single)
            End Set
        End Property

        ReadOnly Property ReadOnlyProperty() As Byte
            Get
            End Get
        End Property

        WriteOnly Property WriteOnlyProperty() As SByte
            Set(ByVal value As SByte)
            End Set
        End Property


        Default Overridable Property DefaultOverridableProperty(ByVal idx As Integer) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
    End Class

    Class ClassF
        Inherits ClassE

        Default Overrides Property DefaultOverridableProperty(ByVal idx As Integer) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property

        Shadows Property ShadowsProperty() As system.uint64
            Get
            End Get
            Set(ByVal value As system.uint64)
            End Set
        End Property

        Shared Property SharedProperty() As system.decimal
            Get
            End Get
            Set(ByVal value As system.decimal)
            End Set
        End Property

        Overridable Property OverridableProperty() As system.int64
            Get
            End Get
            Set(ByVal value As system.int64)
            End Set
        End Property

        NotOverridable Overrides Property NotOverridableProperty() As Date
            Get
            End Get
            Set(ByVal value As Date)
            End Set
        End Property

        Overrides Property OverridesProperty() As Char
            Get
            End Get
            Set(ByVal value As Char)
            End Set
        End Property

        Overloads Property OverloadsProperty(ByVal Param1 As Integer) As Single
            Get
            End Get
            Set(ByVal value As Single)
            End Set
        End Property

        Overloads Property OverloadsProperty() As system.object
            Get
            End Get
            Set(ByVal value As system.object)
            End Set
        End Property

        Overrides Property MustOverrideProperty() As String
            Get
            End Get
            Set(ByVal value As String)
            End Set
        End Property

        Overloads Overrides Property OverridesOverloadsProperty() As Double
            Get
            End Get
            Set(ByVal value As Double)
            End Set
        End Property

    End Class

    Class ClassG
        Default WriteOnly Property DefaultWriteOnlyProperty(ByVal idx As Integer) As Boolean
            Set(ByVal value As Boolean)
            End Set
        End Property

        Property Test(ByVal value2 As Date) As Date
            Get
            End Get
            Set(ByVal value As Date)
            End Set
        End Property

    End Class

    Class ClassH
        Default ReadOnly Property DefaultReadOnlyProperty(ByVal idx As Integer) As Integer
            Get
            End Get
        End Property

        Shared Property SharedTest() As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property

        Property Test() As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property

    End Class

    Class ClassI
        Shared Property SharedTest() As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property

        Default Property DefaultProperty(ByVal idx As Integer) As String
            Get
            End Get
            Set(ByVal value As String)
            End Set
        End Property
    End Class


    Structure StructureA
        Dim value As Integer
        Property Test() As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
        Property Test(ByVal builtinvar As Integer) As SByte
            Get
            End Get
            Set(ByVal value As SByte)
            End Set
        End Property
        Property Test(ByVal builtinByValvar As Short) As Byte
            Get
            End Get
            Set(ByVal value As Byte)
            End Set
        End Property
        Property Test(ByVal builtinarrayvar() As Integer) As Short
            Get
            End Get
            Set(ByVal value As Short)
            End Set
        End Property
        Property Test(ByVal builtinarrayvar2 As Long()) As UShort
            Get
            End Get
            Set(ByVal value As UShort)
            End Set
        End Property
        Property Test(ByVal objvar As Object) As Integer
            Get
            End Get
            Set(ByVal value As Integer)
            End Set
        End Property
        Property Test(ByVal ByValobjvar As String) As UInteger
            Get
            End Get
            Set(ByVal value As UInteger)
            End Set
        End Property
        Property Test(ByVal classvar As classa) As Long
            Get
            End Get
            Set(ByVal value As Long)
            End Set
        End Property
        Property Test(ByVal classByValvar As classb) As ULong
            Get
            End Get
            Set(ByVal value As ULong)
            End Set
        End Property
        Property Test(ByVal classarrayvar() As classa) As Single
            Get
            End Get
            Set(ByVal value As Single)
            End Set
        End Property
        Property Test(ByVal classByValarrayvar As classb()) As Double
            Get
            End Get
            Set(ByVal value As Double)
            End Set
        End Property
        Property Test(ByVal structvar As structurea) As Decimal
            Get