Hi,<br>I've two list box, list1 and list2. When a user selects an item from list1 and click on a command button, the item is added to list2, without be delete from list1. No problem with that. <br>What I want to do now is when the user will tries to add item from list1 a second time, a message box will pop up to say something like "Item already choosen." and the item will not be added to list2. This is a sample of my code:<br><b><br>Private Sub Addition_Click()<br><br>Dim ctlList As Control<br>Dim ctlList2 As Control<br>Dim varitem As Variant<br>Dim strSQL As String<br><br>Set ctlList = Me.list1<br>Set ctlList2 = Me.list2<br><br>For Each varitem In ctlList.ItemsSelected<br>If <i>'Selected item in list1 is already in list2'</i> Then<br>MsgBox "Item already choosen."<br>Exit sub<br>Else<br>'Insert item in list2. No problem with this.<br>End If<br>Next varitem<br><br>End Sub<br></b><br>My problem is that I don't know what could be the condition of my IF instruction. Anyone has ideas?<br><br>Any help is welcome,<br>Frank <br>