下面介绍下vb中多态实现的具体步骤：
1、定义接口类 。
例如：我们定义一个接口类Fruit类，它的功能是保鲜。
public sub save（）
end sub
2、定义实现类
实现类就是使用接口类实现某些功能
例如：我们定义两个实现类，Apple类和Grape类。
Grape类代码：
Implements Fruit '声明要是使用Fruit这个接口
public sub Fruit_save()
msgBox "apple save"
end if
Apple 类代码：
Implements Fruit '声明要是使用Fruit这个接口
public sub Fruit_save()
msgBox "grape save"
end if
接下来就是在窗体中写代码了
private sub mysub(afruit as Fruit) '定义过程
afruit.save
end sub
private sub command1_clike()
dim aApple as Apple
set aApple = new Apple
call mysub(aApple)
set aApple as nothing
dim agrape as Grage
set agrape = new Grage
call mysub(agrape)
set agrape as nothing
end sub
然后运行就可以看到msgBox 分别弹出 apple save 和 apple save。
运用相同的变量afruit 传入不同的参数实现不同的结果，这便实现了多态的功能。
总结：这和我们在模块中写一个function过程有点像，都是传入参数返回结果。但多态可定由他独特的好处， 具体好处我也不知道。说实话感觉到这里对面向对象
的理念理解的还不是太清，不过没关系因为我们 还会有第二遍第三遍的学习。