When implemented, the following code causes a column to move to the first position (the left-most column) when the user clicks on the column.
Note If you are using the MSFlexGrid, substitute "MSHFlexGrid1" with "MSFlexGrid1."
Sub MSHFlexGrid1_Click ()
MSHFlexGrid1.ColPosition(MSFlexGrid1.MouseCol) = 0
End Sub