Select - Case

[konisek]

May a Case Expression in Select structure be a condition?
I mean:


Dim Distance as Long
...

Select Distance
Case < 10
...
Case < 1000
...
Case < 20000
...
Case > 20000
...
End Select

It gives me a compilation error
Compiling code. Error
Error compiling program.
Error description: Missing parameter.
Occurred on line: 126
Select Distance
Word: select

 

[worm]

You have to use:

Select True
Case Distance < 10
...   
Case Distance < 1000
...   
Case Distance < 20000
...   
Case Distance > 20000
...   
End Select