Public Function ImyInterFace_AbstructFun() As String ImyInterFace_AbstructFun = "我起床" End Function
''''实现部分
Implements ImyInterFace
Public Function ImyInterFace_AbstructFun() As String Dim ac As New AbstructClass ImyInterFace_AbstructFun = ac.ImyInterFace_AbstructFun & "我吃早饭" End Function