mcs/btests/OverrideC7.vb

   1 Class A
   2     Public Overridable Sub F1()
   3     End Sub
   4 End Class
   5
   6 Class B
   7     Inherits A
   8     Public NotOverridable Sub F1()
   9     End Sub
  10 End Class
  11
  12 \r
  13 Module OverrideC1\r
  14     Sub Main()\r
  15     End Sub\r
  16 End Module