>>nSelected = 0 >>FOR x = 1 TO This.ListCount >> IF This.Selected(x) >> nSelected = nSelected + 1 >> ENDIF >>NEXT >> >>*-- Shows the number of selected records to the user >>Thisform.SelectedNo.Caption = STR(nSelected) > >Thanks, Benn, that would do it, of course. I should have put in the >previous message that I was trying to avoid this method, because I often >have 5000 records, and doing this loop each click would be abominably slow. Er... how about remembering the position of last clicked row, and calculating for distance if shift-clicked or just adding or taking one for ctrl+click... no, it wouldn't give you a correct count, in case some of the rows in the range were ctrl+click selected before shif+click. Tricky one, isn't it?