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

       Dim objTest As CInherit

    Set objTest = New CInherit

    With objTest

        .InheritMsg

    End With

    Set objTest = Nothing

       运行程序,弹出my owner function,说明继承的类可以使用自己的函数或属性.