mcs/mbas/Test/tests/InheritanceD.vb

   1 Interface IBase
   2     Function F(ByVal i As Integer)
   3 End Interface
   4
   5 Interface ILeft
   6     Inherits IBase
   7 End Interface
   8
   9 Interface IRight
  10     Inherits IBase
  11 End Interface
  12
  13 Interface IDerived
  14     Inherits ILeft, IRight
  15 End Interface
  16
  17 Class D
  18     Implements IDerived
  19
  20     Function F(ByVal i As Integer) Implements IDerived.F
  21     End Function
  22 End Class
  23
  24 Module InheritanceD\r
  25     Sub Main()\r
  26     End Sub\r
  27 End Module