lnColumn = This.Columns[This.ActiveColumn].ColumnOrder This.Columns[lnColumn]
This.Columns[This.ActiveColumn].ColumnOrder