'Beispiel :
'Hallo... im Deinem Fall kannst Du, da die Schluesselnamen bekannt sind, wie 
' folgt vorgehen.
'Hierbei bleibt lpAppName = Ifc_Toll erhalten und die einzelnen Schlüssel 
' darunter werden gelöscht.
'NG.: 09.07.03do
Private Declare Function DeleteKeyValue Lib "kernel32" _
                                    Alias "WritePrivateProfileStringA" _
                                    (ByVal lpAppName As String, _
                                    ByVal lpKeyName As String, _
                                    ByVal lpString As Long, _
                                    ByVal lpFileName As String) _
                                    As Long
 
 
Private Sub Command2_Click()
    DeleteIniSection App.Path & "\test.ini", "WindowState", _
                                             "WindowTop", _
                                             "WindowLeft", _
                                             "WindowWidth", _
                                             "WindowHeight"
End Sub
 
Private Sub DeleteIniSection(ByVal Filename As String, ParamArray KeyName() As _
  Variant)
    Dim n As Integer
 
    For n = LBound(KeyName) To UBound(KeyName)
        Call DeleteKeyValue("Ifc_Toll", KeyName(n), 0, Filename)
    Next
End Sub
'MfG
'Frank