*MSHflexgrid control.Dragdrop LPARAMETERS oSource, nXCoord, nYCoord If !empty(this.Tag) with this .Redraw = .F. .ColPosition(Val(.Tag)) = .MouseCol thisform.DoSort(this) .Redraw = .t. endwith endif *form.dosort lparameters toObject with toObject .Col = 0 .ColSel = .Cols - 1 .Sort = 1 && Generic Ascending endwithCetin