MsgBox "Inherit"
End Sub
'---------------------------------------------------------------------
'此方法是继承类自己的方法
Public Sub InheritMsg()
MsgBox "my owner msg"
End Sub
现在我们新建一窗体来做测试,我们把测试代码放在Form_Load事件中
测试一:
Dim objTest As CBase
Set objTest = New CBase
With objTest
.BaseFunction
End With
Set objTest = Nothing
