onst TVE_EXPAND As Long = &amp;H2
Private Const TVE_TOGGLE As Long = &amp;H3
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type NMTREEVIEW
    hdr As NMHDR
    action As Long
    itemOld As TVITEM
    itemNew As TVITEM
    ptDrag As POINTAPI
End Type
Public Enum OptionTreeFolderTypeCOnstants
    OptionTreeFolder = 1
    OptionTreeCheck = 2
    optiontreeFolderCustom = 3
End Enum
Public Enum OptionTreeCheckTypes
    OptionTreeCheckNone = 0
    OptionTreeCheckFull = 1
    OptionTreeCheckP