Mega Code Archive
Select with condition
<![CDATA[
Imports System
public class MainClass
Shared Sub Main()
Dim targetInteger As Integer = 7
Select Case targetInteger
Case Is < 10
Console.WriteLine("Less than 10")
Case 10 To 14
Console.WriteLine("10-14")
Case 15
Console.WriteLine("15!")
Case Else
Console.WriteLine("Value not found")
End Select
End Sub
End Class
]]>