Option Explicit On
Option Strict On


Public Class MainForm

    Structure Item
        Public salesPerson As String
        Public January As Integer
        Public February As Integer
        Public March As Integer

    End Structure



    Private Sub calcButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles calcButton.Click

        Dim searchFor As String

        Dim bonus As Integer
        Dim isconverted As Boolean
        Dim sum1 As Integer

        Dim sales(9) As Item

        sales(0).salesPerson = "1"
        sales(0).January = 2400
        sales(0).February = 3500
        sales(0).March = 2000

        sales(1).salesPerson = "2"
        sales(1).January = 1500
        sales(1).February = 7000
        sales(1).March = 1000

        sales(2).salesPerson = "3"
        sales(2).January = 600
        sales(2).February = 450
        sales(2).March = 2100


        sales(3).salesPerson = "4"
        sales(3).January = 790
        sales(3).February = 240
        sales(3).March = 500

        sales(4).salesPerson = "5"
        sales(4).January = 1000
        sales(4).February = 1000
        sales(4).March = 1000


        sales(5).salesPerson = "6"
        sales(5).January = 6300
        sales(5).February = 7000
        sales(5).March = 8000

        sales(6).salesPerson = "7"
        sales(6).January = 1300
        sales(6).February = 450
        sales(6).March = 700

        sales(7).salesPerson = "8"
        sales(7).January = 2700
        sales(7).February = 5500
        sales(7).March = 6000

        sales(8).salesPerson = "9"
        sales(8).January = 4700
        sales(8).February = 4800
        sales(8).March = 4900

        sales(9).salesPerson = "10"
        sales(9).January = 1200
        sales(9).February = 1300
        sales(9).March = 1400

        RateTextBox.Text = bonus.ToString

        isconverted = Integer.TryParse(RateTextBox.Text, bonus)


        For subscript As Integer = 0 To 9
            salesPersonListBox.Items.Add(sales(subscript).salesPerson)
        Next subscript

        For Each totalSalesAmount As Integer In sales(January, February, March)
            sum1 = sum1 + totalSalesAmount
        Next totalSalesAmount
        totalSalesLabel.Text = sum1.ToString
    End Sub

End Class

For Each totalSalesAmount As Item In sales

sum1 = sum1 + totalSalesAmount.January + totalSalesAmount.February + totalSalesAmount.March

        Dim total As Integer

        For Each totalSalesAmount As Item In sales
            total = totalSalesAmount.January + totalSalesAmount.February + totalSalesAmount.March
            sum1 = sum1 + total
            Me.Label2.Text = Me.Label2.Text & total & ControlChars.NewLine
        Next totalSalesAmount

        Me.Label1.Text = sum1.ToString