Public Class YourClass
Private MyState as String = "DEFAULT"
Public Property State As String
Get
Return MyState
End Get
Set(Value As String)
MyState = Value
End Set
End Property
End Class
Module Test
Sub Main()
Dim C As New YourClass()
Console.WriteLine(C.State)
C.State = 5
Console.WriteLine(C.State)
End Sub
End Module
|