mcs/btests/Inheritance1.vb

   1 ' this could be a compile time exception too\r
   2 ' But MS vb 7.0 is throwing type cast exception at runtime\r
   3 ' hence I am keeping it as a Negetive-Runtime-Test candidate\r
   4 \r
   5 Public Class C1\r
   6 End Class\r
   7 \r
   8 Public Class C2\r
   9     Inherits C1\r
  10 End Class\r
  11 \r
  12 Module InheritanceC3\r
  13     Sub Main()\r
  14         Dim b As C2 = New C1()\r
  15     End Sub\r
  16 End Module\r