Private Sub SetListViewSettings()
        Dim settings() As ColumnSettings
        settings = New ColumnSettings() {New ColumnSettings("lfnr", 40, _
          HorizontalAlignment.Left), _
                                     New ColumnSettings("Jahr", 40, _
                                     HorizontalAlignment.Left), _
                                     New ColumnSettings("Monat", 40, _
                                     HorizontalAlignment.Right), _
                                     New ColumnSettings("Werte", 40, _
                                     HorizontalAlignment.Right)}
        ListView1.View = View.Details
 
        For Each cs As ColumnSettings In settings
            ListView1.Columns.Add(cs.GetHeader)
        Next
        'oder per Index
        If settings.Length > 0 Then
            'Das If wird hier eigentlich nicht gebraucht, da vier Items bekannt 
            ' sind, ist aber bei Index-Schleifen obligatorisch
            For i As Integer = 0 To settings.Length - 1
                ListView1.Columns.Add(settings(i).GetHeader)
            Next
        End If
    End Sub

Public Class ColumnSettings
    Public Text As String = "ColumnHeaderText"
    Public Width As Integer = 60
    Public Alignment As HorizontalAlignment = HorizontalAlignment.Center
    Public Sub New()
    End Sub
    Public Sub New(ByVal t As String, ByVal w As Integer, ByVal a As _
      HorizontalAlignment)
        Me.Text = t
        Me.Width = w
        Me.Alignment = a
    End Sub
    Public Function GetHeader() As ColumnHeader
        Dim h As New ColumnHeader
        h.Text = Me.Text
        h.Width = Me.Width
        h.TextAlign = Me.Alignment
        Return h
    End Function
End Class