VB.NET Select Case文のサンプル(switch文) | ITSakura