<code><font color=green>' Speichern der Spalten-Reihenfolge in der 
' Registry</font>
SaveSetting "myApplication", "ListView", "ColOrder", _
  lvwGetColOrder(ListView1)
 
<font color=green>' Laden der Spalten-Reihenfolge aus der Registry</font>
lvwSetColOrder ListView1, _
  GetSetting("myApplication", "ListView", "ColOrder")</code>

<code><font color=green>' ListView Spalten-Reihenfolge ermitteln</font>
Private Function lvwGetColOrder(ListView As ListView) _
  As String
 
  Dim I As Integer
  Dim sOrder As String
 
  With ListView1.ColumnHeaders
    For I = 1 To .Count
      If sOrder <> "" Then sOrder = sOrder + ","
      sOrder = sOrder + CStr(.Item(I).Position)
    Next I
  End With
 
  lvwGetColOrder = sOrder
End Function
 
<font color=green>' ListView Spalten-Reihenfolge setzen</font>
Private Sub lvwSetColOrder(ListView As ListView, _
  ByVal sOrder As String)
 
  Dim cIndex As Integer
  Dim iPos() As String
  Dim I As Integer
 
  If sOrder <> "" Then
    <font color=green>' Positionen</font>
    iPos = Split(sOrder, ",")
 
    <font color=green>' Positionen zuweisen</font>
    With ListView1.ColumnHeaders
      For I = 0 To UBound(iPos)
        .Item(I + 1).Position = iPos(I)
      Next I
    End With
  End If
End Sub</code>