Module Module1
Function func() As Tuple(Of Integer, String)
Dim n As Integer = 90
Dim s As String = "VB.NET"
Return New Tuple(Of Integer, String)(n, s)
End Function
Sub Main()
Dim t As Tuple(Of Integer, String) = func()
Console.WriteLine(t.Item1)
Console.WriteLine(t.Item2)
End Sub
End Module
' run:
'
' 90
' VB.NET
'