4 Module WithStatementB
\r
6 Public a1 As Integer = 10
\r
7 Friend a2 As String = "Hello"
\r
9 Console.WriteLine("Class C1: {0} {1}", a1, a2)
\r
19 a = x ' Tried reassiging the object inside With statement
\r
20 If .a1 = a.a1 Or .a2 = a.a2 Then
\r
21 Throw New Exception("#WS1 - With Statement failed")
\r