' aktuelle Spalten-Reihenfolge ermitteln und speichern
Dim sBuffer As String
Dim oColumn As MSComctlLib.ColumnHeader
 
For Each oColumn In ListView1.ColumnHeaders
  With oColumn
    sBuffer = sBuffer & .Key & ";" & .Position & vbTab
  End With
Next
 
' in Registry speichern
SaveSetting "MyApp","ListView","ColumnOrder",sBuffer

' gespeicherte Spalten-Reihenfolge wiederherstellen
Dim sBuffer As String
Dim sData() As String
Dim i As Integer
Dim sKey As String
Dim nPos As Integer
 
sBuffer=GetSetting("MyApp","ListView","ColumnOrder","")
If Len(sBuffer) > 0 Then
  sData = Split(sBuffer, vbTab)
  For i = 0 To UBound(sData)
    If InStr(sData(i), ";") > 0 Then
      sKey = Left$(sData(i), InStr(sData(i), ";") - 1)
      nPos = Val(Mid$(sData(i), InStr(sData(i), ";") + 1))
 
      ListView1.ColumnHeaders(sKey).Position = nPos
    End If
  Next i
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de