[RESOLVED] check box to remove items from list?

[stevevb6]

Do i just replace what i have with that?

If chkboxuf1.Value = True Then
    Dim lngIndex As Long
    
    For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.List(lngIndex) = "AAA" Then
            List1.RemoveItem lngIndex
        End If
    Next