Save and restore column order of DataGridView

    Private Sub DataGridView1_DataBindingComplete(sender As Object, e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles DataGridView1.DataBindingComplete
        Dim ColumnDisplayOrder As New Collections.ArrayList
        'ColumnsOrder setting must be of type mscorlib.System.Collections.ArrayList
        ColumnDisplayOrder = My.Settings.ColumnDisplayOrder
        If ColumnDisplayOrder IsNot Nothing Then
            If ColumnDisplayOrder.Count > 0 Then
                For I As Integer = 0 To ColumnDisplayOrder.Count - 1
                    DataGridView1.Columns.Item(I).DisplayIndex = ColumnDisplayOrder(I)
                Next I
            End If
        End If
    End Sub

    Private Sub DataGridView1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp
        Dim ColumnDisplayOrder As New Collections.ArrayList
        For I As Integer = 0 To DataGridView1.Columns.Count - 1
            ColumnDisplayOrder.Add(DataGridView1.Columns.Item(I).DisplayIndex)
        Next I
        'ColumnsOrder setting must be of type mscorlib.System.Collections.ArrayList
        My.Settings.ColumnDisplayOrder = ColumnDisplayOrder
        My.Settings.Save()
    End Sub