property6.vb

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

'Property tests for option strict on.
Namespace Property6
    Class ClassA
        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
            End Get
            Set(ByVal value As Decimal)
            End Set
        End Property
        Property Test(ByVal structByValvar As structureb) As Date
            Get
            End Get
            Set(ByVal value As Date)
            End Set
        End Property
        Property Test(ByVal structarrayvar As structurea()) As String
            Get
            End Get
            Set(ByVal value As String)
            End Set
        End Property
        Property Test(ByVal structByValarrayvar() As structureb) As Char
            Get
            End Get
            Set(ByVal value As Char)
            End Set
        End Property
        Property Test(ByVal interfacevar As interfacea) As Boolean
            Get
            End Get
            Set(ByVal value As Boolean)
            End Set
        End Property
        Property Test(ByVal interfaceByValvar As interfaceb) As classa
            Get
            End Get
            Set(ByVal value As classa)
            End Set
        End Property
        Property Test(ByVal interfacearrayvar As interfacea()) As structurea
            Get
            End Get
            Set(ByVal value As structurea)
            End Set
        End Property
        Property Test(ByVal interfaceByValarrayvar() As interfaceb) As interfacea
            Get
            End Get
            Set(ByVal value As interfacea)
            End Set
        End Property
        Property Test(ByVal delegatevar As delegatea) As delegatea
            Get
            End Get
            Set(ByVal value As delegatea)
            End Set
        End Property
        Property Test(ByVal delegateByValvar As delegateb) As enuma
            Get
            End Get
            Set(ByVal value As enuma)
            End Set
        End Property
        Property Test(ByVal delegatearrayvar As delegatea()) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
        Property Test(ByVal delegateByValarrayvar() As delegateb) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
        Property Test(ByVal enumvar As enuma) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
        Property Test(ByVal enumByValvar As enumb) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
        Property Test(ByVal enumarrayvar As enuma()) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
        Property Test(ByVal enumByValarrayvar() As enumb) As Object
            Get
            End Get
            Set(ByVal value As Object)
            End Set
        End Property
    End Class

    Class ClassB
        Property ParamArrayBuiltInTest1(ByVal ParamArray parramyarraybuiltinparam As Integer()) As SByte
            Get
            End Get
            Set(ByVal value As SByte)
            End Set
        End Property
        Property ParamArrayBuiltInTest2(ByVal ParamArray parramyarraybuiltinparam() As Integer) As Byte
            Get
            End Get
            Set(ByVal value As Byte)
            End Set
        End Property
        Property ParamArrayObjTest1(ByVal ParamArray parramyarrayObjparam() As Object) As Short
            Get
            End Get
            Set(ByVal value As Short)
            End Set
        End Property
        Property ParamArrayObjTest2(ByVal ParamArray parramyarrayObjparam As Object()) As UShort
            Get
            End Get
            Set(ByVal value As UShort)
            End Set
        End Property
        Property ParamArrayClassTest1(ByVal ParamArray parramyarrayClassparam() As ClassB) As Integer
            Get
            End Get
            Set(ByVal value As Integer)
            End Set
        End Property
        Property ParamArrayClassTest2(ByVal ParamArray parramyarrayarrayClassparam As ClassB()) As UInteger
            Get
            End Get
            Set(ByVal value As UInteger)
            End Set
        End Property
        Property ParamArrayStructureTest1(ByVal ParamArray parramyarrayStructureparam() As StructureA) As Long
            Get
            End Get
            Set(ByVal value As Long)
            End Set
        End Property
        Property ParamArrayStructureTest2(ByVal ParamArray parramyarrayStructureparam As StructureA()) As ULong
            Get
            End Get
            Set(ByVal value As ULong)
            End Set
        End Property
        Property ParamArrayInterfaceTest1(ByVal ParamArray parramyarrayInterfaceparam() As InterfaceA) As Decimal
            Get
            End Get
            Set(ByVal value As Decimal)
            End Set
        End Property
        Property ParamArrayInterfaceTest2(ByVal ParamArray parramyarrayInterfaceparam As InterfaceA()) As Single
            Get
            End Get
            Set(ByVal value As Single)
            End Set
        End Property
        Property ParamArrayDelegateTest1(ByVal ParamArray parramyarrayDelegateparam() As DelegateA) As Double
            Get
            End Get
            Set(ByVal value As Double)
            End Set
        End Property
        Property ParamArrayDelegateTest2(ByVal ParamArray parramyarrayDelegateparam As DelegateA()) As Date
            Get
            End Get
            Set(ByVal value As Date)
            End Set
        End Property
        Property ParamArrayEnumTest1(ByVal ParamArray ParamArrayEnumparam() As EnumA) As String
            Get
            End Get
            Set(ByVal value As String)
            End Set
        End Property
        Property ParamArrayEnumTest3(ByVal ParamArray ParamArrayEnumparam As EnumA()) As Char
            Get
            End Get
            Set(ByVal value As Char)
            End Set
        End Property
    End Class

    Class ClassC
        Property OptionalBuiltInTest1(Optional ByVal optionalbuiltinparam As Integer = 1) As Integer
            Get
            End Get
            Set(ByVal value As Integer)
            End Set
        End Property
        Property OptionalBuiltInTest2(Optional ByVal optionalByValbuiltinparam As Integer = 1) As UInteger
            Get
            End Get
            Set(ByVal value As UInteger)
            End Set
        End Property
        Property OptionalBuiltInTest3(Optional ByVal optionalarraybuiltinparam As Integer() = Nothing) As Boolean
            Get
            End Get
            Set(ByVal value As Boolean)
            End Set
        End Property
        Property OptionalBuiltInTest4(Optional ByVal optionalByValarraybuiltinparam() As Integer = Nothing) As Boolean
            Get
            End Get
            Set(ByVal value As Boolean)
            End Set
        End Property
        Property OptionalObjTest1(Optional ByVal optionalObjparam As Object = Nothing) As Short
            Get
            End Get
            Set(ByVal value As Short)
            End Set
        End Property
        Property OptionalObjTest2(Optional ByVal optionalByValObjparam As Object = Nothing) As UShort
            Get
            End Get
            Set(ByVal value As UShort)
            End Set
        End Property
        Property OptionalObjTest3(Optional ByVal optionalarrayObjparam As Object() = Nothing) As Long
            Get
            End Get
            Set(ByVal value As Long)
            End Set
        End Property
        Property OptionalObjTest4(Optional ByVal optionalByValarrayObjparam() As Object = Nothing) As ULong
            Get
            End Get
            Set(ByVal value As ULong)
            End Set
        End Property
        Property OptionalClassTest1(Optional ByVal optionalClassparam As ClassB = Nothing) As Decimal
            Get
            End Get
            Set(ByVal value As Decimal)
            End Set
        End Property
        Property OptionalClassTest2(Optional ByVal optionalByValClassparam As ClassB = Nothing) As Single
            Get
            End Get
            Set(ByVal value As Single)
            End Set
        End Property
        Property OptionalClassTest3(Optional ByVal optionalarrayClassparam As ClassB() = Nothing) As Double
            Get
            End Get
            Set(ByVal value As Double)
            End Set
        End Property
        Property OptionalClassTest4(Optional ByVal optionalByValarrayClassparam() As ClassB = Nothing) As Date
            Get
            End Get
            Set(ByVal value As Date)
            End Set
        End Property

        'Property OptionalStructureTest1(Optional ByVal optionalStructureparam As StructureA = Nothing)
        '
        'Property OptionalStructureTest2(Optional ByVal optionalByValStructureparam As StructureA = Nothing)
        '
        'Property OptionalStructureTest3(Optional ByVal optionalarrayStructureparam As StructureA() = Nothing)
        '
        'Property OptionalStructureTest4(Optional ByVal optionalByValarrayStructureparam() As StructureA = Nothing)
        '

        Property OptionalInterfaceTest1(Optional ByVal optionalInterfaceparam As InterfaceA = Nothing) As structurea
            Get
            End Get
            Set(ByVal value As structurea)
            End Set
        End Property
        Property OptionalInterfaceTest2(Optional ByVal optionalByValInterfaceparam As InterfaceA = Nothing) As interfacea
            Get
            End Get
            Set(ByVal value As interfacea)
            End Set
        End Property
        Property OptionalInterfaceTest3(Optional ByVal optionalarrayInterfaceparam As InterfaceA() = Nothing) As enuma
            Get
            End Get
            Set(ByVal value As enuma)