Contact: aviboots(AT)netvision.net.il
41,301 questions
53,811 answers
573 users
Module Module1 Sub Main() Dim number As Integer = 3 Select Case number Case 2, 3, 6 Console.WriteLine("2, 3, 6") Case 9 Console.WriteLine("9") End Select End Sub End Module ' run: ' ' 2, 3, 6