VB6.0怎么最简单的编写自定义属性和方法事件

VB6.0如何最简单的编写自定义属性和方法事件
这个问题应该比较基础吧

比如定义了一个变量people
现在要赋予它一个属性people.hair  
还要赋予它一个方法就是people.growhair   效果使得hair值增加+1


请问，如何用最简单的方法实现。

------解决方案--------------------
你说的是类，不是变量！
新建类模块，命名为People

Option Explicit

'保持属性值的局部变量
Private mvarhair As Long '局部复制
Public Sub growhair()
mvarhair = mvarhair + 1
End Sub

Public Property Let hair(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
mvarhair = vData
End Property


Public Property Get hair() As Long
'检索属性值时使用，位于赋值语句的右边。
hair = mvarhair
End Property



------解决方案--------------------
楼主代码很经典了.
------解决方案--------------------
应该是 "楼上代码很经典了 "