说到继承这里首先说下类成员访问的方式，有三种，public，private， friend
Public是完全公开的，外部可以随时进行修改，这个不是很安全，所以类里使用公有变量安全性差，若改为私有的，是找不到数据成员的；private是只有本模块可以访问的；而Friend介于是private和public之间,本类和工程都可访问，但其他的工程不可以访问。
所以这里介绍一种比public安全的方式 定义 :属性过程
属性过程（两种情况，写入，读取）
读属性过程的格式如下
Public (static) property get name(arglist) as type(读属性）
Statement
Name=expression
Exit property
Statements
Name=expression （属性名）
End property
写属性过程有两种方式 let 与set
Public (static) propertyLet name(arglist) as type(读属性）
Statement
Name=expression
Exit property
Statements
Name=expression （属性名）
End property
注意：属性过程名是真正的属性名，变量是中间存错的媒介，将一个属性设置为一个对象的时候用property set。
以上是背景交代。
下面步入话题。
一个程序是由多个类，多个程序实现的，而类中有继承和多态，vb又是基于多态的，下面说下
继承的实现
方法：1 继承与类的展开（flatten）flatten方法是将基类的都拿到派生类中，即将代码复制到本类中
2 对象做为成员
展开说明 Flatten方法事都放在另一个类中，为派生类(方法简单，但要求是源代码是必须有的，然而很多情况是不具有源代码，这样就需要对象成员)
用对象作为成员 首先对象要实例化初始化，实例化方法说明如下
Private sub class_initialize（）
Set name=new classname
End sub
对象结束时要释放
Private sub class_terminate()
Set name=nothing
End sub
期间可以添加自己的属性过程，如读属性，写属性，方式如开始介绍的。
多态的实现
Vb中的多态是不同的对象，接受相同的消息，产生不同的结果如同样都是水果他们的保存方式几乎是不一样的。同样都是保存，结果是不同的方式。
Vb中使用接口和实现构成多态
接口和实现是不一样的
接口只是描述什么功能，不关心怎样实现
实现，是具体的变现完成某些功能
多态的实现有三部分构成分别是
定义接口类
定义实现类
首先定义接口类（在类模块中定义）
Public Sub save() '定义了（保存）接口类
End Sub
Implements '实现接口类型定义（实现类）是必须有的
如开始说道的类的属性过程定义
Public Property Let color(clr As Long) ' 定义了写的颜色属性
End Property