[RESOLVED] check box to remove items from list?

[stevevb6]

im not really sure what i should do.

if checkbox.value = true ??????????
if label1.text = "xxxxx" then
Dim i As Integer
    
    Randomize
    i = Rnd(List1.ListCount) * List1.ListCount
    Label4.Caption = List1.List(i)
end if

im not sure if that is how i should do it. im not sure what i need to put in the area with the "????" or if this is the best way of doing this, or even if this way is possible.
i also just tried this but it didnt work.

If chkboxuf1.Value = True Then
    With List1
        .RemoveItem "AAA"
        End With
        End If

I have the lists load with the form, like this

Private Sub Form_Load()
With List1
    .AddItem "AAA"
    .AddItem "BBB"
    .AddItem "CCC"
    .AddItem "DDD"
    
    End With