>* Add this to the Column.MouseLeave event >LOCAL lcCur,llST >This.Parent.ToolTipText= "" >lcCur=SET("CURSOR") >SET CURSOR OFF >llST=Thisform.ShowTips >Thisform.ShowTips= .F. && now turn off currently displayed tip >INKEY(.1) >Thisform.ShowTips= llST >SET CURSOR &lcCur. > >* Add this to the Column.MouseEnter event, (as Andreas provided). >IF EMPTY(This.ToolTipSource) > This.Parent.ToolTipText= This.ToolTipText >ELSE > This.Parent.ToolTipText= EVALUATE("This."+This.ToolTipSource+".ToolTipText") >ENDIF > >* Add this to the object/class Header.MouseLeave event >This.Parent.MouseLeave(nButton, nShift, nXCoord, nYCoord) > >* Add this to the object/class Header.MouseEnter event >This.Parent.MouseEnter(nButton, nShift, nXCoord, nYCoord) > >