bug-81119.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 17 行

Public Class PropTestClass

    Private poActiveObject As Object = Nothing

    Public Property ActiveObject() As Object
        Get
            Return poActiveObject
        End Get
        Set(ByVal aoValue As Object)
            poActiveObject = aoValue
        End Set
    End Property

    Shared Sub Main()

    End Sub
End Class