5 Dim myInnerC As New C2()
6 Dim b As Integer=myInnerC.H()
8 Throw New Exception("#A5:Error in accessing inner class")
11 Public Function G() As Integer
15 Public Function H() As Integer
23 Dim myCInstance As New C1()
25 Console.WriteLine("#A1:Error in creating class instance:"+e.Message)
32 Throw New Exception("#A2-ClassTest:Failed-Error in accessing class data member")
35 Console.WriteLine(e.Message)
41 Console.WriteLine("#A3:Error in accessing Sub from a class:"+e.Message)
45 Dim c As Integer=myC.G()
47 Throw New Exception("#A4-ClassTest:Failed-Error in accessing Function of a class")
50 Console.WriteLine(e.Message)