Option Strict On
Option Explicit On
Option Infer Off

Public Class frmMain
    Dim numbers() As Integer = {4, 1, 6, 3, 9, 15}

    Private Sub btnFindMaxes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindMaxes.Click
        txtVBMax.Text = CStr(numbers.Max)
        txtOurMax.Text = CStr(OurMax(numbers))
    End Sub

    Private Sub btnAddNumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddNumber.Click
        Dim newNumber As Integer = CInt(InputBox("Enter a number to add to the Array", "Add a Number"))
        ReDim Preserve numbers(numbers.Count)
        numbers(numbers.Count - 1) = newNumber
    End Sub

    Function OurMax(ByVal inNumbers() As Integer) As Integer
        Dim max As Integer = inNumbers(0)
        For i As Integer = 1 To inNumbers.Count - 1
            If inNumbers(i) > max Then
                max = inNumbers(i)
            End If
        Next
        Return max
    End Function
End Class