Public Class A
Public Sub ShowA()
MsgBox("A")
End Sub
End Class
Public Class B
Inherits A
Public Sub ShowB()
MsgBox("B")
End Sub
End Class
Public Class C
Inherits A
Public Sub ShowC()
MsgBox("C")
End Sub
End Class
然后你可以执行如下语句
Dim cc As New C()
Dim bb As New B()
cc.ShowC()
cc.ShowA()
bb.ShowB()
bb.ShowA()
结果显示C A B A,如果你把MsgBox("A")改为MsgBox("uncle ****er"),那么结果则是C uncle ****er B uncle ****er