[RESOLVED] check box to remove items from list?

[stevevb6]

how can i add an item to the list by clicking the check box,
like this?

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