mcs/btests/InheritanceE.vb

   1 Public Class C1\r
   2     Public Overridable Sub F1()\r
   3     End Sub\r
   4 End Class\r
   5 \r
   6 Public Class C2\r
   7     Inherits C1\r
   8 \r
   9     Public Overrides Sub F1()\r
  10     End Sub\r
  11 End Class\r
  12 \r
  13 Module InheritanceE\r
  14     Sub Main()\r
  15         Dim d As C2 = New C2()\r
  16     End Sub\r
  17 End Module\r
  18 \r
  19 \r
  20 \r