tring
Dim sSections() As String
Dim iSectionCount As Long
Dim sKeys() As String
Dim iKeycount As Long
Dim iSection As Long
Dim iKey As Long
Dim lSect As Long

    lstIni.Clear
    With m_cIni
        .EnumerateAllSections sSections(), iSectionCount
        For iSection = 1 To iSectionCount
            lstIni.AddItem "[" &amp; sSections(iSection) &amp; "]"
            lSect = lstIni.NewIndex
            lstIni.ItemData(lSect) = -1
            .Section = sSections(iSection)
            .EnumerateCurrentSectio