接下来我们新建一类模块(Cinherit.cls),代码如下,其间有关键的注释
Implements CBase '注意此关键字
Dim m_BaseProperty As String
'---------------------------------------------------------------------
'虚线间的代码即是从CBase类继承的.
'注意其格式如下：基类_属性名(或方法名)
'其方法的声明关键字public也变为了private
Private Property Get CBase_BaseProperty() As String
BaseProperty = m_BaseProperty
End Property
Private Property Let CBase_BaseProperty(ByVal VData As String)
m_BaseProperty = VData
End Property
Private Sub CBase_BaseFunction()
