mcs/mbas/Test/tests/OverrideB.vb

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