Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ListView1.View = View.Details
            ListView1.GridLines = True
            ListView1.FullRowSelect = True
 
            ListView1.Clear()
 
            Dim oSR As New IO.StreamReader("C:\test.csv")
            Dim nSPalten() As String = oSR.ReadLine.Split(", ")
            Dim lstCol As New ListView.ColumnHeaderCollection(ListView1)
 
            For Each sSpalte As String In nSPalten
                lstCol.Add(sSpalte)
            Next
 
            While oSR.Peek > -1
                Dim lstItem As New ListViewItem(oSR.ReadLine.Split(","))
                ListView1.Items.Add(lstItem)
            End While
 
            Return
 
        Catch ex As Exception
            Return
        End Try
    End Sub
End Class