mcs/btests/InheritanceE.vb

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