Delete All Checked Items From A Check List Box

This code deletes all checked items in a check list box. It has a while loop that continues until all checked items are deleted.


        While CheckListBoxName.CheckedItems.Count > 0
              CheckListBoxName.Items.Remove( CheckListBoxName.CheckedItems(0))
        End While