mcs/btests/ConditionalStatementsC8.vb

   1 REM LineNo: 12
   2 REM ExpectedError: BC30201
   3 REM ErrorMessage: Expression expected
   4
   5 Imports System
   6
   7 Module ConditionalStatementsC8
   8
   9     Sub Main()
  10
  11         Dim i As Integer = 0
  12         Select
  13                 Case 0 To
  14                     i = 10
  15                 Case Else
  16                     i = 11
  17         End Select
  18
  19     End Sub
  20
  21 End Module