mcs/mbas/Test/tests/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 b as New C1()\r
  16         b.F1()\r
  17 \r
  18         Dim d As C2 = New C2()\r
  19         d.F1()\r
  20     End Sub\r
  21 End Module\r
  22 \r
  23 \r
  24 \r