* Header * MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord BINDEVENT(m.this.Parent,"Moved",this,"MouseUp",1) && or put this.ColumnReordered = .T. && into Column.Moved ADDPROPERTY(this,"ColumnReordered",.F.) && or add this to the Header subClass * MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord * I look a bug here, NODEFAULT is ignored IF EMPTY(PARAMETERS()) && OR USE AEVENT() or use a SpecialMetodh this.ColumnReordered = .T. && or put this code into Column ELSE UNBINDEVENTS(m.this.Parent,"Moved",this,"MouseUp") ENDIF * Click WAIT WINDOWS IIF(m.this.ColumnReordered,"Order","Click") NOWAIT TIMEOUT 10