VB6中的面向对象编程---实现类继承[4]

       运行程序,弹出base,说明是调用Cbse中的BaseFunction函数

测试二:

       Dim objTest As CBase

    Set objTest = New CInherit

    With objTest

        .BaseFunction

    End With

    Set objTest = Nothing

       运行程序,弹出Inherit,说明是调用Cinherit中的Base函数

测试三: