Private Sub SaveFlexGridColumnWidths(ByVal flx As _
    MSFlexGrid)
Dim i As Integer

    For i = 0 To flx.Cols - 1
        ' Save the column width.
        SaveSetting _
            "SaveFlexWidths", _
            "ColumnWidths", "Col" & Format$(i), _
            flx.ColWidth(i)
    Next i
End Sub

Private Sub LoadFlexGridColumnWidths(ByVal flx As _
    MSFlexGrid)
Dim i As Integer

    For i = 0 To flx.Cols - 1
        ' Get the column width. Use its current
        ' width as the default value.
        flx.ColWidth(i) = GetSetting( _
            "SaveFlexWidths", _
            "ColumnWidths", "Col" & Format$(i), _
            flx.ColWidth(i))
    Next i
End Sub