mcs/btests/MustInheritC4.vb

   1 Imports System
   2
   3 'Testing a private mustoverride method
   4 MustInherit Class C1
   5     Private MustOverride Function F2() As Integer
   6 End Class
   7
   8 Class C2
   9     Inherits C1
  10         Private Overrides Function F() As Integer
  11         End Function
  12 End Class
  13
  14 'Testing a shared mustoverride method
  15 MustInherit Class C3
  16               Public Shared MustOverride Sub F()
  17 End Class
  18
  19 Module MustInheritTest
  20         Sub Main()
  21
  22         End Sub
  23 End Module