propertyb.vb

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

Imports SYSTEM
Module M
    Private i As Integer

    Public Property p() As Integer
        Get
            Return i
        End Get

        Set(ByVal value As Integer)
            i = Value
        End Set

    End Property

    Function Main() As Integer
        p = 10
        If p <> 10 Then
            System.Console.WriteLine("#A1 Property Not Working") : Return 1
        End If
    End Function

End Module