Public Function lvwSetColOrder(lv_listview As listview, ByVal str_order As _
    String)
 
    Dim str_ipos() As String
    Dim int_i As Integer
 
    If str_order <> "" Then
 
    ' Positionen
    str_ipos = Split(str_order, ",")
 
    ' Positionen zuweisen
    With lv_listview.ColumnHeaders
        For int_i = 0 To UBound(str_ipos)
            .Item(int_i + 1).Position = str_ipos(int_i)
        Next int_i
    End With
 
    End If
 
End Function