Imports System

Public Module Physics

    Public Sub Main()

        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)) ' pass multiple related values easily

    End Sub

    Function CircleCalc(radius As Double, constantPi As Tuple(Of String, Double)) 

        Return 2 * constantPi.item2 * radius

    End Function

End Module

​