[superwoofer]

Dim I As Integer

If List1.Selected(Item) = True Then

If zList1.Count <= 0 Then

zList1.Add List1.List(Item)

Else

For I = 1 To zList1.Count
If Trim$(List1.List(Item)) = Trim$(zList1.Item(I)) Then GoTo COMETOHERE
Next

zList1.Add List1.List(Item)

End If

Else

If zList1.Count <= 0 Then GoTo COMETOHERE

If zList1.Count = 1 Then zList1.Remove 1: GoTo COMETOHERE

For I = 1 To zList1.Count
If Trim$(List1.List(Item)) = Trim$(zList1.Item(I)) Then zList1.Remove I: GoTo COMETOHERE
Next

End If

COMETOHERE:

List3.Clear

If zList1.Count > 0 Then
For I = 1 To zList1.Count
List3.AddItem Trim$(zList1.Item(I))
Next
End If

If zList2.Count > 0 Then
For I = 1 To zList2.Count
List3.AddItem Trim$(zList2.Item(I))
Next
End If