mcs/btests/MustInherit.vb

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