Private Declare Function WritePrivateProfileString Lib "Kernel32" _
  Alias "WritePrivateProfileStringA" (ByVal grpnm As String, _
  ByVal parnm As Any, ByVal parvl As Any, _
  ByVal INIPath As String) As Long

Public Sub INIDeleteGroup(INIPath As String, INIGroup As String)
' delete entire group from .INI file (physically)
' input: inipath=path to .INI file, INIGroup=group to delete
Call WritePrivateProfileString(INIGroup, 0&, 0&, INIPath)
End Sub

Public Sub INIDeleteValue(INIPath As String, INIGroup As String, INIKey As String)
' delete line from .INI file (physically)
' input: inipath=path to .INI file, iniGroup=group header (no []),
' INIkey=parameter name
Call WritePrivateProfileString(INIGroup, INIKey, 0&, INIPath)
End Sub