mcs/btests/Inheritance1.vb

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