For n = lstBox.ListCount -1 To 0 Step -1

     If lstBox.Selected(n) = True
     lstBox.RemoveItem (n)
        lstBox.Refresh

    Else

        lstBox.ListIndex = lstBox.ListIndex - 1

    End If

Next n

Everything seems to work fine unless the user goes back to list &
"HighLites" one of the list-Items not checked....
it seems that the CheckedListBox doesn't work properly...
according to the documentation the "selected" property should not recognize
the
Items that are "HighLited"....only checked Items....this does not seem to be
the case...

Any help would be greatly appreciated....Thnx      8~)