n sKeys(), iKeycount
            For iKey = 1 To iKeycount
                .Key = sKeys(iKey)
                lstIni.AddItem .Key &amp; "=" &amp; .Value
                lstIni.ItemData(lstIni.NewIndex) = lSect
            Next iKey
        Next iSection
        If (lstIni.ListCount &gt; 0) Then
            lstIni.ListIndex = lstIni.ListCount - 1
        End If
        txtInfo(0) = .Path
        txtInfo(1) = .Section
        txtInfo(2) = .Key
        txtInfo(3) = .Value
    End With
End Sub
Private Sub Creat