3 ' if a class is not derived from any class
\r
4 ' means it is derived from Object class
\r
7 Function f1 (name as string)
\r
8 dim t as Type = GetType()
\r
9 If t.name <> name Then
\r
10 Throw New System.Exception("#A1 Unexpected result")
\r
14 Function fn() As Integer
\r
21 Function f2(name as string)
\r