>Would this do?
>

>Lparameters pcSelectionType
>
>** parameter and property check
>If Vartype(pcSelectionType) # "C" Or !This.MultiSelect
>    Return
>Endif
>
>Local lnThisItem
>With This
>    For lnThisItem = 1 To .ListCount
>        .Selected(m.lnThisItem) = ( m.pcSelectionType = "ALL" Or ;
>            (m.pcSelectionType = "INVERT" And !.Selected(m.lnThisItem)))
>    Endfor
>Endwith
>

Cetin.

The code looks great and once again "ALL" and "NONE" function properly but "INVERT" act as though I have passed "ALL".

This is one frustrating problem.

Todd