procedure MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord with this * initialize items that will be tested in MouseUp .mnColumnOrder = this.parent.ColumnOrder .mnColumnWidth = this.parent.Width endwith endproc procedure MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord with this * check to see if this was a resize or move .mlColumnMoved = ( this.parent.ColumnOrder != .mnColumnOrder ) .mlColumnSized = ( this.parent.Width != .mnColumnWidth ) endwith endprocThen in Click() you can test if it was moved or sized.