Dim Name As String
Property fullName() As String
Get
Return Name
End Get
Set(ByVal Value As String)
Name = Value
End Set
End Property
Get
Return Name
End Get
Set(ByVal Value As String)
Name = Value
End Set
Private foo As Integer
Public Property Foo() As Integer
Get
Return foo
End Get
Private Set(ByVal value As Integer)
foo = value
End Set
End Property
Private foo As Integer
Public Property Foo() As Integer
Get
Return foo
End Get
Private Set(ByVal value As Integer)
foo = value
End Set
End Property