Namespace mySpace
    Public Class MyClass1

        Private Property _myID As String
        Private Property _myName As String
        Private Property Y As Integer
        Public Property X As Integer


        Public Property myID As String
            Get
                Return _myID
            End Get
            Set(value As String)
                _myID = value
            End Set
        End Property
        Public Property myName As String
            Get
                Return _myName
            End Get
            Set(value As String)
                _myName = value
            End Set

        End Property

        Public Property mX As Interger
            Get
               X
            End Get
            Set(value As Inter)
               X=2*Y
            End Set

        End Property

    End Class
End Namespace

註釋：這裡定義為屬性的意義     

1   通過私有屬性來訪問公有屬性，達到安全控制的目的

2  通過私有屬性來訪問公有屬性，還可以在賦值的時候，做一些限制或者特殊的處理，計算。達到對私有屬性更高一層的控制。某一個屬性的值改變了，自動觸發另外一個屬性的值。不用在外部通過事件的程式碼來實現。