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
)