CSVファイルの読み込み

初級講座の第３０回をやったのですが、この内容をリストビューのCOLUMNSのコレクション有りで、コレクションごとに表示するにはどうすればいいですか？

ファイルの内容は簡素に文字列配列にしてあります。
読み込みは出来ているとの事なのでこの内容を読み替えてみて下さい。
タイトル行は『:』の前後で表題と幅を表しています。

        Dim strLines() As String = {"col1:40,col2:70,col3:60,col4:100", _
                        "aaaa,1,bbbb,2", _
                        "cccc,3,dddd,4", _
                        "eeee,5,ffff,6", _
                        "gggg,7,hhhh,8"}
        Dim blnTitleLine = True

        ListView1.Clear()
        For Each strLine As String In strLines
            Dim strVals() As String = strLine.Split(","c)
            If blnTitleLine Then
                For Each strCol In strVals
                    Dim strNmWd = strCol.Split(":"c)
                    ListView1.Columns.Add(strNmWd(0), CInt(strNmWd(1)))
                Next
                blnTitleLine = False
            Else
                ListView1.Items.Add(New ListViewItem(strVals))
            End If
        Next

ありがとうございます。
早速試してみよとおもいます。