mcs/btests/InterfaceG.vb

   1 Imports System
   2
   3 Interface I
   4         Sub F1()
   5         Sub F2()
   6 End Interface
   7
   8 Class C1
   9    Implements I
  10         Public Sub F() Implements I.F1,I.F2
  11         End Sub
  12 End Class
  13
  14 Module InterfaceG
  15         Sub Main()
  16                 Dim C As New C1()
  17         End Sub
  18 End Module