NX̃vpeBVisual Basic 6.0 ł́AProperty GetAProperty LetAProperty Set
eXe[gggpăvpeB̒l擾ѐݒ肪ł܂B
܂AByRefvpeB̎gp\łB
ɑ΂VB.NETł̓vpeB錾̍\傫قȂ܂B
̗QlɂĂB܂AByRefvpeB̎gp͏oȂȂ܂B

[VB.NET]
Public Class SampleClass
    Private num1 As Integer
    Private num2 As Integer
    Private num3 As Integer
    'GetSetƂ
    Public Property Number1()
        Get
            Return num1
        End Get
        Set(ByVal Value)
            num1 = Value
        End Set
    End Property
    'GetȂReadOnlyt
    Public ReadOnly Property Number2()
        Get
            Return num2
        End Get
    End Property
    'SetȂWriteOnlyt
    Public WriteOnly Property Number3()
        Set(ByVal Value)
            num3 = Value
        End Set
    End Property
End Class

