Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim words = New String() {"this", "is", "a test"}
Dim shortestWord = Aggregate word In words _
Into Min(word.Length)
Console.WriteLine("The shortest word is " & shortestWord & " characters long.")
End Sub
End Class