When inserting items the parent-id was not set correctly. I added a two (actually: three) line fix in InsertItem
..... .bChevronAppearance = False .bChevronBehaviour = False .bShowCheckAndIcon = False .sKey = sKey 'jn: copy parent id Dim lBeforeParentIndex As Long lBeforeParentIndex = m_tMI(lIndexBefore).lParentIndex If (0 <> lBeforeParentIndex) Then .lParentId = m_tMI(lBeforeParentIndex).lActualID .lParentIndex = lBeforeParentIndex End If End With
|