mcs/btests/MustInheritC1.vb

   1 MustInherit Class C1\r
   2     Public Function F1()\r
   3         Dim a As Integer = 10\r
   4     End Function\r
   5 \r
   6     Public MustOverride Function F2()\r
   7 End Class\r
   8 \r
   9 Module MustInheritC1\r
  10     Sub Main()\r
  11         Dim x As C1 = New C1()\r
  12     End Sub\r
  13 End Module\r