DEFINE CLASS MyTreeView AS OLECONTROL #INCLUDE TreeView.h .Object.Appearance = 1 .Object.BorderStyle = 0 .Object.Height = 185 .Object.Indentation = 20 .Object.LabelEdit = tvwManual .Object.Left = 12 .Object.LineStyle = tvwTreeLines .Object.MousePointer = 0 .Object.OLEDragMode = 0 .Object.OLEDropMode = 0 .Object.Style = tvwTreelinesPlusMinusPictureText .Object.Top = 12 .Object.Width = 150 .Object.HotTracking = .T. Height = 185 Left = 12 Top = 12 Width = 150 PROCEDURE Init * Your init code here ENDPROC PROCEDURE Click * Your click code here ENDPROC ENDDEFINE * Create it like this in the Form's Init IF "6." $ VERSION() * vfp 6.0 lctreeclass = "MSComctlLib.Treectrl.2" ELSE * vfp 5.0 lctreeclass = "COMCTL.Treectrl.1" ENDIF SET PROCEDURE TO MyTreeView This.AddObject("ObjTree", "CTreeView", lctreeclass)