'定义接口或者抽象类
interface iTest
function GetSomething()as string
end interface
’定义实现类,或者子类
public Class Test
implements iTest
public Function GetSomething() as string implements iTest.GetSomething
do Something
end function
end class
‘使用方法
public class Main
public sub demo
dim a as iTest=new Test()
a.GetSomething
end sub
end class