Class myClass
Private i_count

Public Property Get count
count = i_count
End Property
Public Property Let count(c)
i_count = c

End Property
End Class

Class myClass
Private i_count

Public Property Get count
i_count = i_count + 1
count = i_count
End Property
'Demon注：

'其實(shí)這里純粹是為了使用Me而使用Me
'直接countTwice = count + count更簡單
Public Property Get countTwice
countTwice = Me.count + Me.count

End Property
Public Property Let count(c)
i_count = c
End Property
End Class