Select Case

Select Caseで色々と。
複数項目の場合(1 or 2 or 4)は
 Case 1,2,4
範囲指定の場合(10以上15以下)は
 Case 10 To 15
またそのあわせ技
 Case 1,2,4, 10 To 15
比較演算子も使えたり(100以上)は
 Case Is >= 100

以上から
1か2か4か10から15の間か100以上であるなんて場合は

Select Case selectValue
  Case 1 ,2 ,4 ,10 To 15 ,Is >= 100
    ' 処理
  Case Else
    ' 例外処理
End Select

って書き方が出来るらしいです。

http://point56.blogspot.com/2007/01/vbnet-select-case.html
                                                                                            • -

Select Caseでの比較演算子の使い方 忘れてた〜
あわせ技はいいですねぇ。