DEFINE CLASS myHeader AS Header

   Caption = "Header"
   FontName = "Tahoma"
   FontSize = 8
   FontBold = .T.

   PROCEDURE ToolTipText_Assign( v.myText )
        This.ToolTipText = <do whatever...>


ENDDEFINE