Public Class TestClass
  Private testPropValue as Integer
  Public Property TestProp() As Integer
    Get
      Return testPropValue
    End Get
    Set(ByVal value As Integer)
      testPropValue = value
    End Set
  End Property
End Class

Dim obj As New TestClass
Dim currentValue As Integer = obj.TestProp 'Auslesen
obj.TestProp = 5 ' Setzen

Ralf