mcs/btests/MustInheritA.vb

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