= 0) Then
                .Value = Me.Controls(i).Name &amp; "," &amp; CStr(iNd)
            Else
                .Value = Me.Controls(i).Name
            End If
        Next i
    End With
    ShowIniAndParameters

End Sub

Private Sub cmdCreate_Click()
    CreateTestIni
End Sub

Private Sub cmdDeleteKey_Click()
    With m_cIni
        .Path = txtInfo(0)
        .Section = txtInfo(1)
        .Key = txtInfo(2)
        .DeleteKey
        If Not (.Success) Then
            MsgBox "Delete Key Failed.", vbInfor