Module Module1
   
   Sub Main()
   Dim ar As Integer()
  Dim min As Integer
          ar = New Integer() {15, 8, 1, 6, 34, 7, 5, 342, 4, 7}
   
  min = ar(0)
   
   For i = 1 To ar.GetUpperBound(0)
   If ar(i) < min Then
                  min = ar(i)
   End If
   Next
          Console.Write("The Minimum value of the elements of array is: {0}", min)
          Console.ReadLine()
   
   End Sub
   
  End Module