Dim constantPi As Tuple(Of String, Double) = New Tuple(Of String, Double) ("Pi",3.14)
Dim constantGravity As Tuple(Of String, Double) = New Tuple(Of String, Double) ("Gravity",9.81)
Console.WriteLine(constantPi.item1 & " is " & constantPi.item2 & " ish")
Console.WriteLine(constantGravity.item1 & " is " & constantGravity.item2 & " ish")
Console.WriteLine("Circumference = " & CircleCalc(5,constantPi))
Function CircleCalc(radius As Double, constantPi As Tuple(Of String, Double))
Return 2 * constantPi.item2 * radius