Module decisions
	Sub Main()
		'local variable definition
		Dim a As Integer = 100
		Dim b As Integer = 200
		Select Case a
		  Case 100
		     Console.WriteLine("This is part of outer case")
		     Select b 
		       Case 200
		       Console.WriteLine("This is part of inner case")
		     End Select
		End Select
		Console.WriteLine("Exact value of a is : {0}", a)
		Console.WriteLine("Exact value of b is : {0}", b)
		Console.ReadLine()
	End Sub
End Module