3 Module WithStatementC
\r
5 Public a1 As Integer = 10
\r
6 Public a2 As String = "Hello"
\r
8 Console.WriteLine("Class C1: {0} {1}", a1, a2)
\r
17 ' Exit before all statements in With have been executed
\r
21 If .a1 = a.a1 Or .a2 = a.a2 Then
\r
22 Throw New Exception("#WS1 - With Statement failed")
\r
29 Throw New Exception("#WS2- Exit from With Statement failed")
\r