mcs/btests/WithStatementA.vb

   1 Imports System\r
   2 \r
   3 Module WithStatementA\r
   4     Class C1\r
   5         Public a1 As Integer = 10\r
   6         Friend a2 As String = "Hello"\r
   7         Sub f1()\r
   8             Console.WriteLine("Class C1: {0} {1}", a1, a2)\r
   9         End Sub\r
  10     End Class\r
  11 \r
  12     Sub main()\r
  13         Dim a As New C1()\r
  14         With a\r
  15             .a1 = 20\r
  16             .a2 = "Hello World"\r
  17             .f1()\r
  18             Dim x As New C1()\r
  19             x.a1 = 2\r
  20             With x\r
  21                 .a1 = 3\r
  22                 .a2 = "In nested With statement"\r
  23                 .f1()\r
  24                 a.a1 = 25\r
  25                 a.a2 = "Me too"\r
  26                 a.f1()\r
  27             End With\r
  28         End With\r
  29 \r
  30         With a     ' Empty With statement\r
  31         End With\r
  32 \r
  33     End Sub\r
  34 \r
  35 End Module