Dim arr_LVColTXT() As String
    Dim arr_LVColWidth() As Integer
    Dim arr_LVColAusrichtung() As Object
 
arr_LVColTXT = New String() {"lfnr", "Jahr", "Monat", "Werte", "Betrag", "sum." & _
  "Werte", "sum. Betrag", "Bezeichnung"}
        arr_LVColWidth = New Integer() {40, 50, 50, 75, 75, 100, 100, 120}
        arr_LVColAusrichtung = New Object() {HorizontalAlignment.Left, _
          HorizontalAlignment.Left, HorizontalAlignment.Right, _
                                      HorizontalAlignment.Right, _
                                      HorizontalAlignment.Right, _
                                      HorizontalAlignment.Right, _
                                      HorizontalAlignment.Right, _
                                      HorizontalAlignment.Left}
 
 Dim i As Integer = 0
            For i = 0 To UBound(arr_LVColTXT)
                .Columns.Add(arr_LVColTXT(i), arr_LVColWidth(i), _
                  arr_LVColAusrichtung(i))
            Next

Wer aufhört sich zu verbessern, hört auf gut zu sein.