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