Procedure MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Parent.Parent.ToolTipText = 'Over Col ' ; + TRANSFORM(This.Parent.ColumnOrder) endproc Procedure MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Parent.Parent.ToolTipText = '' endproc