DataGridView that Saves Column Order, Width and Visibility to user.config

public DataGridViewEx()
  {
      this.ColumnWidthChanged += new DataGridViewColumnEventHandler(DataGridViewEx_ColumnWidthChanged);
  }

  void DataGridViewEx_ColumnWidthChanged(object sender, DataGridViewColumnEventArgs e)
  {
      SaveColumnOrder();
  }

  private void SetColumnOrder()
  {
      m_parentName = this.Parent.Name;
      if (!DataGridViewExSetting.Default.ColumnOrder.ContainsKey(m_parentName + this.Name))
          return;

      List<ColumnOrderItem> columnOrder =
          DataGridViewExSetting.Default.ColumnOrder[m_parentName + this.Name];

      if (columnOrder != null)
      {
          var sorted = columnOrder.OrderBy(i => i.DisplayIndex);
          foreach (var item in sorted)
          {
              this.Columns[item.ColumnIndex].DisplayIndex = item.DisplayIndex;
              this.Columns[item.ColumnIndex].Visible = item.Visible;
              this.Columns[item.ColumnIndex].Width = item.Width;
          }
      }
  }

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Configuration
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Collections
Imports System.Reflection

<Description("DataGridView that Saves Column Order, Width and Visibility to user.config")> _
  <ToolboxBitmap(GetType(System.Windows.Forms.DataGridView))> _
Public Class DataGridView
  Private _key As String

  Private Sub SetColumnOrder()
    If Not gfDataGridViewSetting.[Default].ColumnOrder.ContainsKey(_key) Then
      Return 'Settings never been saved yet
    End If

    Dim columnOrder As List(Of ColumnOrderItem) = gfDataGridViewSetting.[Default].ColumnOrder(_key)

    If columnOrder IsNot Nothing Then
      columnOrder.Sort(New ColumnOrderItemComparer)
      For Each item As ColumnOrderItem In columnOrder
        Try
          Me.Columns(item.ColumnName).DisplayIndex = item.DisplayIndex
          Me.Columns(item.ColumnName).Visible = item.Visible
          Me.Columns(item.ColumnName).Width = item.Width
        Catch ex As Exception
          'An exception will be raised if the grid columns has been change such that
          'a column no longer exists, in this case the column setting will be ignored. 
          'It will be overwritten during SaveColumnOrder so will not repeat.
          'New columns will appear as the last columns.
        End Try
      Next
    End If
  End Sub
  '---------------------------------------------------------------------
  Private Sub SaveColumnOrder()
    If Me.AllowUserToOrderColumns Then
      Dim columnOrder As New List(Of ColumnOrderItem)()
      Dim columns As DataGridViewColumnCollection = Me.Columns
      For i As Integer = 0 To columns.Count - 1
        columnOrder.Add(New ColumnOrderItem(columns(i).Name, i, columns(i).DisplayIndex, columns(i).Visible, columns(i).Width))
      Next

      gfDataGridViewSetting.[Default].ColumnOrder(_key) = columnOrder
      gfDataGridViewSetting.[Default].Save()
    End If
  End Sub
  '---------------------------------------------------------------------
  Protected Overrides Sub OnCreateControl()
    MyBase.OnCreateControl()
    If Columns.Count > 0 Then
      _key = Me.Parent.Name & "." & Me.Name
      SetColumnOrder()
    End If
  End Sub
  '---------------------------------------------------------------------
  Protected Overrides Sub OnDataSourceChanged(ByVal e As EventArgs)
    MyBase.OnDataSourceChanged(e)
    If Columns.Count > 0 Then
      _key = Me.Parent.Name & "." & Me.Name
      SetColumnOrder()
    End If
  End Sub
  '---------------------------------------------------------------------
  <System.Diagnostics.DebuggerNonUserCode()> _
  Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    SaveColumnOrder()
    MyBase.Dispose(disposing)
    Try
      If disposing AndAlso components IsNot Nothing Then
        components.Dispose()
      End If
    Finally
      MyBase.Dispose(disposing)
    End Try
  End Sub
End Class
'-------------------------------------------------------------------------
Friend NotInheritable Class gfDataGridViewSetting
  Inherits ApplicationSettingsBase
  Private Shared _defaultInstace As gfDataGridViewSetting = DirectCast(ApplicationSettingsBase.Synchronized(New gfDataGridViewSetting()), gfDataGridViewSetting)
  '---------------------------------------------------------------------
  Public Shared ReadOnly Property [Default]() As gfDataGridViewSetting
    Get
      Return _defaultInstace
    End Get
  End Property
  '---------------------------------------------------------------------
  ' Because there can be more than one DGV in the user-application
  ' a dictionary is used to save the settings for this DGV.
  ' As key the name of the control's parent and control is used, separated by a .
  <UserScopedSetting()> _
  <SettingsSerializeAs(SettingsSerializeAs.Binary)> _
  <DefaultSettingValue("")> _
  Public Property ColumnOrder() As Dictionary(Of String, List(Of ColumnOrderItem))
    Get
      Return TryCast(Me("ColumnOrder"), Dictionary(Of String, List(Of ColumnOrderItem)))
    End Get
    Set(ByVal value As Dictionary(Of String, List(Of ColumnOrderItem)))
      Me("ColumnOrder") = value
    End Set
  End Property
End Class
'-------------------------------------------------------------------------
<Serializable()> _
Public NotInheritable Class ColumnOrderItem
  Public Sub New(ByVal ColumnName As String, ByVal ColumnIndex As Integer, ByVal DisplayIndex As Integer, ByVal Visible As Boolean, ByVal Width As Integer)
    Me.ColumnName = ColumnName
    Me.ColumnIndex = ColumnIndex
    Me.DisplayIndex = DisplayIndex
    Me.Visible = Visible
    Me.Width = Width
  End Sub
  Public Property ColumnName() As String
    Get
      Return m_ColumnName
    End Get
    Set(ByVal value As String)
      m_ColumnName = value
    End Set
  End Property
  Private m_ColumnName As String
  Public Property DisplayIndex() As Integer
    Get
      Return m_DisplayIndex
    End Get
    Set(ByVal value As Integer)
      m_DisplayIndex = value
    End Set
  End Property
  Private m_DisplayIndex As Integer
  Public Property Width() As Integer
    Get
      Return m_Width
    End Get
    Set(ByVal value As Integer)
      m_Width = value
    End Set
  End Property
  Private m_Width As Integer
  Public Property Visible() As Boolean
    Get
      Return m_Visible
    End Get
    Set(ByVal value As Boolean)
      m_Visible = value
    End Set
  End Property
  Private m_Visible As Boolean
  Public Property ColumnIndex() As Integer
    Get
      Return m_ColumnIndex
    End Get
    Set(ByVal value As Integer)
      m_ColumnIndex = value
    End Set
  End Property
  Private m_ColumnIndex As Integer
End Class


Public Class ColumnOrderItemComparer
  Implements IComparer(Of ColumnOrderItem)

  Public Function Compare(ByVal x As ColumnOrderItem, ByVal y As ColumnOrderItem) As Integer Implements System.Collections.Generic.IComparer(Of ColumnOrderItem).Compare
    x.DisplayIndex.CompareTo(y.DisplayIndex)
  End Function
End Class