mcs/mbas/Test/errors/WithStatementC2.vb

   1 REM LineNo: 21
   2 REM ExpectedError: BC30756
   3 REM ErrorMessage: 'GoTo labelA' is not valid because 'labelA' is inside a 'With' statement
   4 REM                that does not contain  this statement.
   5
   6 Imports System
   7
   8 Module WithStatementC2
   9     Class C1
  10         Public a1 As Integer = 10
  11         Public a2 As String = "Hello"
  12         Sub f1()
  13             Console.WriteLine("Class C1: {0} {1}", a1, a2)
  14         End Sub
  15     End Class
  16
  17     Sub main()
  18         Dim a As New C1()
  19
  20         If a.a1 <> 10 Then
  21             GoTo labelA
  22         End If
  23
  24         With a
  25             .a1 = 20
  26 labelA:
  27             .a2 = "Hello World"
  28             .f1()
  29         End With
  30
  31     End Sub
  32
  33 End Module