 lStyle And Not TVS_TRACKSELECT
    End If
    SetWindowLong hWndTvw, GWL_STYLE, lStyle
End Sub

Public Sub AddFolderType( _
        ByRef picClosed As StdPicture, _
        Optional ByRef picOpen As StdPicture = Nothing, _
        Optional ByVal Key As Variant _
    )
Attribute AddFolderType.VB_Description = "Adds a type of folder (having your
 own customised icons) which you can use in the AddFolder method."
Dim vClosedKey As Variant
Dim vOpenKey As Variant

    vClosedKey = "FOLDER@" &amp; Format$(Now, "