pSaveFilter(ByVal sName As String)
Dim lC As Long
Dim cR As New cRegistry
Dim bV() As Byte
Dim iV As Integer
Dim i As Long

    If (cboName.ListIndex = -1) Then
        lC = cboName.ListCount + 1
    Else
        lC = cboName.ItemData(cboName.ListIndex)
    End If
    cR.ClassKey = HKEY_CURRENT_USER
    cR.SectionKey = "Software\vbAccelerator\vbImageProc"
    
    ' Increment the name list:
    cR.ValueKey = "CustomFilters"
    cR.ValueType = REG_DWORD
    cR.Value = lC
    cR.ValueKey = "Filter" &amp; lC
 