mcs/btests/ConditionalStatementsC11.vb

   1 REM LineNo: 14
   2 REM ExpectedError: BC30205
   3 REM ErrorMessage: End of statement expected
   4
   5 Imports System
   6
   7 Module ConditionalStatementsC11
   8
   9     Sub Main()
  10
  11         Dim i As Integer = 0
  12
  13         Select i
  14                 Case 0 To 2     i++
  15
  16                 Case Is < 2, 3, 6 To 7
  17                         i = i + 2
  18         End Select
  19
  20     End Sub
  21
  22 End Module