interfaced.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 20 行

Option Strict Off
Interface I
    Function F1(ByVal i As Integer)
    Function F2(ByVal i As Integer)
End Interface

Class C
    Implements I

    Function F(ByVal i As Integer) Implements I.F1, I.F2
    End Function
End Class

Module InterfaceD
    Function Main() As Integer
        Dim x As C = New C()
        x.F(10)
    End Function
End Module