mcs/btests/InterfaceB.vb

   1 Interface ILeft
   2     Sub F()
   3 End Interface
   4
   5 Interface IRight
   6     Sub F()
   7 End Interface
   8
   9 Interface ILeftRight
  10     Inherits ILeft, IRight
  11 End Interface
  12
  13 Class LeftRight
  14     Implements ILeftRight
  15
  16     Sub LeftF() Implements ILeft.F
  17     End Sub
  18
  19     Sub RightF() Implements IRight.F
  20     End Sub
  21 End Class
  22 \r
  23 Module InterfaceB\r
  24     Sub main()\r
  25         Dim lr As New LeftRight()\r
  26         lr.LeftF()\r
  27         lr.RightF()\r
  28     End Sub\r
  29 End Module\r