* PUBLIC frmSample frmSample = CREATEOBJECT("FORM1") * Choose "Insert Control" in the appeared dialog and select MicroSoft Treeview, for example frmsample.Show() DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT olecontrol1 AS olecontrol WITH ; Top = 12, ; Left = 24, ; Height = 217, ; Width = 193, ; Name = "Olecontrol1" PROCEDURE Init PUBLIC TOOLTIP DEFINE WINDOW TOOLTIP NAME TOOLTIP AT 0, 0 SIZE 1,15 IN WINDOW form1 NONE FLOAT WITH TOOLTIP .FORECOLOR = RGB(0,0,0) .BACKCOLOR = RGB(255,255,192) .ADDOBJECT("Label1", "Label") .Label1.CAPTION = "This is a Treeview" .Label1.BACKSTYLE = 0 && transparent .Label1.WORDWRAP = .T. .Label1.AUTOSIZE = .T. .Label1.VISIBLE = .T. ENDWITH ENDPROC PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord hide window tooltip ENDPROC PROCEDURE olecontrol1.MouseMove *** ActiveX Control Event *** LPARAMETERS button, shift, x, y ToolTip.Left = this.left + this.width/2 ToolTip.Top = this.top + this.height/2 *OR, if you want to move it with the mouse * ToolTip.Left = x * ToolTip.Top = y show window tooltip *wait window "This is a TreeView" at 10, 5 NOWAIT ENDPROC ENDDEFINEIn VFP 7 you may use corresponding MouseEnter and MouseLeave methods instead of MouseMove.