ขึ้นerror InvalidArgument=Value of '3' is not valid for 'index'. Parameter name: index ตามรูปเลยครับ

If (lblSpareName.Text.Trim() = "") Or (lblTotalCost.Text.Trim() = "") Then
            txtRepairID.Focus()
            Exit Sub
        End If

        Dim i As Integer = 0
        Dim lvi As ListViewItem
        Dim tmpRepairID As String
        For i = 0 To lsvRepair.Items.Count - 1
            tmpRepairID = CStr(lsvRepair.Items(i).SubItems(0).Text)
            If CStr(lblSpareName.Text.Trim()) = tmpRepairID Then
                MessageBox.Show("คุณเลือกรายการซ่อมแซมซ้ำกัน กรุณาเลือกใหม่ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)

                txtRepairID.Focus()
                txtRepairID.SelectAll()
                Exit Sub
            End If
        Next

        Dim anyData() As String

        anyData = New String() { _
            lblSpareName.Text, _
            lblAmount.Text, _
            lblCost.Text, _
            lblTotalCost.Text _
        }

        lvi = New ListViewItem(anyData)
        lsvRepair.Items.Add(lvi)
        btnSave.Enabled = True
        ctrllistviewContact()
        CalculateNet()

Sub ctrllistviewContact()
        lsvRepair.Columns.Add("รายการอะไหล่", 100, HorizontalAlignment.Center)
        lsvRepair.Columns.Add("จำนวน", 70, HorizontalAlignment.Center)
        lsvRepair.Columns.Add("ราคาชิ้นละ", 70, HorizontalAlignment.Center)
        lsvRepair.Columns.Add("ค่าอะไหล่", 70, HorizontalAlignment.Center)
        
        lsvRepair.View = View.Details
        lsvRepair.GridLines = True
        lsvRepair.FullRowSelect = True


        lblSpareName.ContextMenu = New ContextMenu()
    End Sub