hhnnss") &amp; "@" &amp; m_iFolderCount + 1
     &amp; ":CLOSED"
    ilsIcons.ListImages.Add , vClosedKey, picClosed
    vOpenKey = "FOLDER@" &amp; Format$(Now, "hhnnss") &amp; "@" &amp; m_iFolderCount + 1 &amp;
     ":OPEN"
    If picOpen Is Nothing Then
        ilsIcons.ListImages.Add , vOpenKey, picClosed
    Else
        ilsIcons.ListImages.Add , vOpenKey, picOpen
    End If
    If (Err.Number = 0) Then
        m_iFolderCount = m_iFolderCount + 1
        ReDim Preserve m_tFolderInfo(1 To m_iFolderCount)