mcs/mbas/Test/tests/MustInheritA.vb

   1 'Testing MustInherit classes with MustOverride methods that do not return a value
   2
   3 MustInherit Class C1
   4     Public Function F1()
   5         Dim a As Integer = 10
   6     End Function
   7     Public MustOverride Function F2()
   8 End Class
   9
  10 Class C2
  11     Inherits C1
  12     Public Overrides Function F2()
  13     End Function
  14 End Class
  15
  16 Module Module1
  17     Sub Main()
  18         Dim x As C1 = Nothing
  19         x = New C2()
  20     End Sub
  21 End Module