mcs/btests/WithStatementC4.vb

   1 REM LineNo: 14
   2 REM ExpectedError: BC30085
   3 REM ErrorMessage: 'With' must end with a matching 'End With'.
   4
   5 Imports System
   6
   7 Module WithStatementC4
   8     Class C1
   9         Public a1 As Integer = 10
  10     End Class
  11
  12     Sub main()
  13         Dim a As New C1()
  14         With a
  15             .a1 = 20
  16
  17     End Sub
  18
  19 End Module