Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim numberstotal As Integer = 8
        Dim numbers(7) As Double
        Dim max As Double
        Dim sum As Double = 0
        Dim product As Double = 1

        numbers(0) = InputBox("Insert number 1 ", "Show all,max,sum,product",,,)

        sum = sum + numbers(0)
        product = product * numbers(0)
        max = numbers(0)


        For i = 1 To numberstotal - 1

            numbers(i) = InputBox("Insert number " & i + 1, "Show all,max,sum,product",,,)

            sum = sum + numbers(i)
            product = product * numbers(i)
            If numbers(i) > max Then
                max = numbers(i)
            End If

        Next

        Label1.Text = numbers(0)
        Label2.Text = numbers(1)
        Label3.Text = numbers(2)
        Label4.Text = numbers(3)
        Label5.Text = numbers(4)
        Label6.Text = numbers(5)
        Label7.Text = numbers(6)
        Label8.Text = numbers(7)

        Label10.Text = "Sum: " & sum
        Label11.Text = "Product: " & product
        Label12.Text = "Max: " & max

    End Sub
End Class