e = "MS Sans Serif"
        .Size = 8
    End With
    Set Font = PropBag.ReadProperty("Font", sFnt)
    BackColor = PropBag.ReadProperty("BackColor", vbWindowBackground)
    ForeColor = PropBag.ReadProperty("ForeColor", vbWindowText)
    Indentation = PropBag.ReadProperty("Indentation", 256.25)
    Style = PropBag.ReadProperty("Style", tvwTreelinesPlusMinusPictureText)
    TrackSelect = PropBag.ReadProperty("TrackSelect", True)
    FullRowSelect = PropBag.ReadProperty("FullRowSelect", False)
    SingleClic