  Next j
        iIndex = iIndex + 7 - iSIze
    Next i
        
    pSaveFilter cboName.Text
        
    Unload Me
End Sub

Private Sub Form_Load()
    
    ' Display the options:
    m_bCancel = True
    With cboBaseOn
        .AddItem "&lt;none&gt;"
        .ItemData(.NewIndex) = -1
        .AddItem "&lt;reset&gt;"
        .ItemData(.NewIndex) = -2
        .AddItem "Blur"
        .ItemData(.NewIndex) = eBlur
        .AddItem "Blur More"
        .ItemData(.NewIndex) = eBlurMore
        .AddItem "Soften"
