>>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

Todd,
It was written off the top of my head but now I just tested it and works.
Cetin