Visual Basic

Private Sub BasketOnCounter()

        Dim LCounter As Int32 = 0
        Dim Found As Boolean = False

        ListView1.BeginUpdate()

        'Here we create groups with Artist names

        For Each BasketItem As ListViewItem In Form1.ListView6.Items

            Found = False
            If ListView1.Groups.Count > 0 Then

                For Each ArtistItem As ListViewGroup In ListView1.Groups

                    If ArtistItem.Header = BasketItem.SubItems(0).Text Then
                        Found = True
                        Exit For
                    End If

                Next

            End If

            If Found = False Then

                Dim SetGroupName As New ListViewGroup


                SetGroupName.Header = BasketItem.SubItems(0).Text
                SetGroupName.HeaderAlignment = HorizontalAlignment.Left

                ListView1.Groups.Add(SetGroupName)

                LCounter += 1
            End If

        Next

        'Here we add items in listview

        LCounter = 0
        For Each BasketItem As ListViewItem In Form1.ListView6.Items

            Try
                ListView1.Items.Add(BasketItem.SubItems(1).Text)
                ListView1.Items(LCounter).SubItems.Add(BasketItem.SubItems(3).Text)
                ListView1.Items(LCounter).SubItems.Add(BasketItem.SubItems(2).Text)
                ListView1.Items(LCounter).Group = ListView1.Groups(BasketItem.SubItems(0).Text)

'When I enable the following line the VS2008 is crashing.

                ListView1.Groups(BasketItem.SubItems(0).Text).Items.Add(ListView1.Items(LCounter)) here 

            Catch ex As Exception
                MsgBox(ex.ToString & " " & BasketItem.SubItems(0).Text)
            End Try

            LCounter += 1
        Next

        ListView1.EndUpdate()
    End Sub

Public Class frmPay

    Private Sub btnPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPay.Click
        Dim sr As IO.StreamReader = IO.File.OpenText("6-PP-1.txt")
        Dim dates, name, rate, hour As String
        Dim gp As Double
        dates = sr.ReadLine
        lstOutput.Items.Clear()
        lstOutput.Items.Add("Payroll Report for week ending " & dates)
        lstOutput.Items.Add(" ")
        Dim headerStr1 As String = "{0,-10}{1,15}{2,15}{3,15}"
        Dim headerStr2 As String = "{0,-10}{1,15:C}{2,15}{3,15:C}"
        lstOutput.Items.Add(String.Format(headerStr1, "Employee", "Hourly Rate", "Hours Worked", "Gross Pay"))
        lstOutput.Items.Add(" ")



        Do While sr.Peek <> -1
            name = sr.ReadLine
            rate = CDbl(sr.ReadLine)
            hour = CDbl(sr.ReadLine)
            gp = CDbl(rate * hour)
            lstOutput.Items.Add(String.Format(headerStr2, name, rate, CStr(hour), gp))
        Loop



        lstOutput.Items.Add(" ")
        lstOutput.Items.Add(String.Format(headerStr1, "Final Total", " ", " ", gp))
        sr.Close()
    End Sub
End Class