VB的接口编程

今天在工作中用了VB的接口编程来模拟继承的实现，原来VB的接口也就是那么的简单，以前一直都懒得看关于这方面的内容
首先定义一个类IStatistic,该类有一个公共属性Caption和一个公共方法Search
Public Property Get Caption() As String
End Property
Public Function Search() As Object
End Function
把IStatistic类当作接口，定义一个类Statistic来实现IStatistic接口
implements IStatistic
Public Property Get IStatistic_Caption() As String
IStatistic_Caption = "Statistic Caption"
End Property
Public Function IStatistic_Search() As MyObject
Set IStatistic_Search = New MyObject
End Function
调用Statistic类的时候，通过接口调用
Public Sub test()
Dim objIStatis as IStatistic
Set objIStatis = new Statistic
MsgBox objIStatis.Caption
Call objIStatis.Search()
End Sub