3 'Testing simple and multi-level inheritence with all methods declared public
\r
6 Public Function f1()As Integer
\r
10 Public Function fn() As Integer
\r
17 Public Function f2()As Integer
\r
30 Dim a As Integer=c1.f1()
\r
32 Throw New Exception("#A1- Inheritence:Failed")
\r
36 Dim b As Integer = c2.f1()
\r
37 Dim c As Integer = c2.f2()
\r
38 Dim d As Integer = c2.fn()
\r
41 Throw New Exception("#A2- Inheritence:Failed")
\r
44 Throw New Exception("#A2- Inheritence:Failed")
\r
47 Throw New Exception("#A2- Inheritence:Failed")
\r
57 Throw New Exception("#A3- Inheritence:Failed")
\r
60 Throw New Exception("#A3- Inheritence:Failed")
\r
63 Throw New Exception("#A3- Inheritence:Failed")
\r