mcs/btests/MustInherit.vb

   1 MustInherit Class C1
   2     Public Function F1()
   3         Dim a As Integer = 10
   4     End Function
   5
   6     Public MustOverride Function F2()
   7 End Class
   8
   9 Class C2
  10     Inherits C1
  11     Public Overrides Function F2()
  12     End Function
  13 End Class
  14
  15 MustInherit Class C3
  16     Public MustOverride Function func()
  17 End Class
  18
  19 MustInherit Class C4
  20     Inherits C3
  21 End Class
  22
  23 Class C5
  24     Inherits C4
  25     Public Overrides Function func()
  26     End Function
  27 End Class
  28
  29 Module Module1
  30     Sub Main()
  31         Dim x As C1 = Nothing
  32         x = New C2()
  33     End Sub
  34 End Module