Remove selected item from checkboxlist

The following will allow you to remove the selected item from a checkboxlist

        Dim i As Integer
        For i = 0 To lb_Categories.Items.Count - 1
            If lb_Categories.Items(i).Selected = True Then
                lb_Categories.Items.RemoveAt(i)
                Exit Sub
            End If
        Next