mcs/btests/OverrideC1.vb

   1 Class A
   2     Public Overridable Sub F1()
   3     End Sub
   4 End Class
   5
   6 Class B
   7     Inherits A
   8     Public Overrides NotOverridable Sub F1()
   9     End Sub
  10 End Class
  11
  12 Class D
  13     Inherits B
  14
  15     Public Overrides Sub F1()
  16     End Sub
  17 End Class
  18
  19 \r
  20 Module OverrideC1\r
  21     Sub Main()\r
  22     End Sub\r
  23 End Module\r
  24 \r