Imports System
Public Module Module1
Public Sub Main()
dim arr() As String = {"php", "c#", "java", "python"}
Dim size As Integer = arr.Length
Array.Sort(arr)
Dim min_length As Integer = Math.Min(arr(0).Length, arr(size - 1).Length)
Console.WriteLine(min_length)
End Sub
End Module
' run:
'
' 2
'