Hi George,

Thanks for the example code. Between Stephen and Denis I think that I found what I needed. I'll save the code for the time that I need it :o)

Thanks for the reply


>>Can you subclass an ActiveX Control like the TreeView? I want to add some default code to the init and add some properties so it will resize with my resizable forms..
>>
>>
>>Thanks
>
>John,
>
>You can sub-class it in code like this:

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)