Someone

    Private Sub listviewAanmaken()

        lvwScoreWeergeven.Columns.Clear()

        'colums-collectie aanvullen
        Dim oHeader As ColumnHeader

        'deelnemerid header
        oHeader = New ColumnHeader()
        oHeader.Text = "DeelnemerID"
        oHeader.Width = 80
        lvwScoreWeergeven.Columns.Add(oHeader)

        'deelnemernaam header
        oHeader = New ColumnHeader()
        oHeader.Text = "DeelnemerNaam"
        oHeader.Width = 80
        lvwScoreWeergeven.Columns.Add(oHeader)

        'mctploegid header
        oHeader = New ColumnHeader()
        oHeader.Text = "MCTPloegID"
        oHeader.Width = 80
        lvwScoreWeergeven.Columns.Add(oHeader)

        'naam header
        oHeader = New ColumnHeader()
        oHeader.Text = "Naam"
        oHeader.Width = 80
        lvwScoreWeergeven.Columns.Add(oHeader)

        'totalescore header
        oHeader = New ColumnHeader()
        oHeader.Text = "TotaleScore"
        oHeader.Width = 80
        lvwScoreWeergeven.Columns.Add(oHeader)

    End Sub

#Region "Scores opvragen en tonen"

    'scores tonen van het volledig seizoen
    Private Sub ScoresToevoegenVanSeizoen()
        Try
            lvwScoreWeergeven.Items.Clear()
            Dim Scores As List(Of clsScoreWeergeven)

            Scores = clsScoreWeergevenDA.GetScoresVanSeizoen()

            For Each oScoreWeergeven As clsScoreWeergeven In Scores
                Dim oItem As New ListViewItem

                oItem.Text = oScoreWeergeven.DeelnemerId
                oItem.SubItems.Add(oScoreWeergeven.DeelnemerNaam)
                MessageBox.Show(oScoreWeergeven.DeelnemerNaam)
                oItem.SubItems.Add(oScoreWeergeven.MCTPloegId)
                oItem.SubItems.Add(oScoreWeergeven.Naam)
                oItem.SubItems.Add(oScoreWeergeven.TotaleScore)
                lvwScoreWeergeven.Items.Add(oItem)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub