(24/01/2020, 08:40)feraz yazdı:

(24/01/2020, 08:37)accessman yazdı: Kontrol değişkenini
Private Kontrol As New Collection 
ile tanımlamışız

Dim TxtOpt As ClsLstvew

    For i = 0 To 20
        Set TxtOpt = New ClsLstvew
        Select Case i
            Case 0
                Set TxtOpt.opt = Controls("L00").Object
            Case 1 To 9
                Set TxtOpt.opt = Controls("L0" & i).Object
            Case 10 To 99
                Set TxtOpt.opt = Controls("L" & i).Object
        End Select

        Kontrol.add TxtOpt
    Next


ile eleman yüklemişiz ama başka hiç bir yerde kullanmamışız
problem bundan kaynaklı olabilir mi

Üsad class için yapıldı.Class olunca class içine bir defa yazmak yeterli.

Class kodunu incelerseniz itemclick ve drop olayı orda bulunuyor.

ben işin mantığını çözemedim zaten 
bir kaç değişiklik yaptım ama olmadı
call ile fonksiyon çağırmasa bile aynı kodun 20 kez çalışma sebebi nedir sizce