mcs/btests/InheritanceJ.vb

   1 ' Same function having both Overrides and Implements simultanously
   2
   3 Interface IBase
   4     Function F(ByVal i As Integer)
   5 End Interface
   6
   7 MustInherit Class Base
   8     MustOverride Function F(ByVal i As Integer)
   9 End Class
  10
  11
  12 Class D
  13     Inherits Base
  14     Implements IBase
  15
  16     Overrides Function F(ByVal i As Integer) Implements IBase.F
  17     End Function
  18 End Class
  19
  20 Module InheritanceJ
  21     Sub Main()
  22     End Sub
  23 End Module