        .ItemData(.NewIndex) = eSoften
        .AddItem "Soften More"
        .ItemData(.NewIndex) = eSoftenMore
        .AddItem "Sharpen"
        .ItemData(.NewIndex) = eSharpen
        .AddItem "Sharpen More"
        .ItemData(.NewIndex) = eSharpenMore
        .ListIndex = 1
        .ListIndex = 0
    End With
    
    ' Load saved values:
    Dim cR As New cRegistry
    Dim lC As Long, lSaved As Long
    
    cR.ClassKey = HKEY_CURRENT_USER
    cR.SectionKey = "Software\vbAccelerator\vbImageProc"
    cR