Imports System
Public Module Module1
Public Sub Main()
Test(0)
Test(1)
Test(2)
Test(3)
Test(-1)
Test(-2)
End Sub
private sub Test(ByVal i as Int32)
select case i
case 0
console.writeline("0")
case 1
console.writeline("1!")
case is > 1
console.writeline("greater than 1")
case else
console.writeline("something else")
end select
end sub
End Module