Пак заповядай.
Ако тоя чекбокс ти требе само за тва - да няма дублиране, по-добре да правиш проверка за дублиране още при прехвърлянето...Пестиш няколко неща:
1.лист2
2.възможност предмониторното да не види,че има дублаж и по този начин да реве,че програмчето е бъгаво и не ще да прави това дето го иска, а понякога......

Аз бих направил нещо такова:

Private Sub List1_Click()

 Dim OK As Boolean, EL As String, I As Integer

  If List1.Selected(List1.ListIndex) Then

   EL = List1.List(List1.ListIndex)

      'ako vsi4ko e prehvurleno, nema smisul ot vrutkata

   OK = Form1.List1.ListCount < List1.ListCount 

   I = 0

     'cikul - ili vsi4ki sa razli4ni ili ima pone edno ravenstvo

   While (I < Form1.List1.ListCount) And OK 

     'OK=false-ako sa ravni i izhod&#206;

     OK = Form1.List1.List(I) <> EL                

     I = I + 1

   Wend

   If OK Then        'ako nema ravenstvo 

      Form1.List1.AddItem EL

   End If

 End If

End Sub

Редактирано от BatiGogo на 02.02.15 08:28.