<font color=green>' Speichern der Spaltenbreite in die Registry</font>
Dim lCol As Long
Dim sTemp As String
 
With MSFlexGrid1
  For lCol = 0 To .Cols - 1
    sTemp = sTemp & CStr(.ColWidth(lCol)) & ";"
  Next lCol
  If Right$(sTemp, 1) = ";" Then _
    sTemp = Left$(sTemp, Len(sTemp) - 1)
End With
 
SaveSetting "MyApplication", "Grid", "Spalten", sTemp

<font color=green>' Wiederherstellen der gespeicherten Spaltenbreiten</font>
Dim sTemp As String
Dim sWidth() As String
Dim lCol As Long
 
sTemp = GetSetting("MyApplication", "Grid", "Spalten", "")
If sTemp <> "" Then
  sWidth = Split(sTemp, ";")
  With MSFlexGrid1
    For lCol = 0 To .Cols - 1
      If UBound(sWidth) < lCol Then Exit For
      .ColWidth(lCol) = Val(sWidth(lCol))
    Next lCol
  End With
End If