Imports System

Public Module Module1

    Public Sub Main()

        dim numbers(0) as integer

        dim current_min as integer

        current_min = numbers(0)

        for each item in numbers

        if item < current_min then

            current_min=item

    End if

    End Sub

End Module