(13/11/2025, 23:02)onur_can yazdı: Bu olayı Liste kutularının GotFocus olaylarına yazacağın kodla halledebilirsin. Şöyleki;

Private Sub Liste0_GotFocus()

Dim varItem As Variant



        For Each varItem In Liste1.ItemsSelected

            Liste1.Selected(varItem) = False

        Next



    For Each varItem In Liste2.ItemsSelected

        Liste2.Selected(varItem) = False

    Next



End Sub

Private Sub Liste1_GotFocus()

    Dim varItem As Variant

        For Each varItem In Liste0.ItemsSelected

            Liste0.Selected(varItem) = False

        Next



    For Each varItem In Liste2.ItemsSelected

        Liste2.Selected(varItem) = False

    Next

End Sub





Private Sub Liste2_GotFocus()

    Dim varItem As Variant

        For Each varItem In Liste0.ItemsSelected

            Liste0.Selected(varItem) = False

        Next



    For Each varItem In Liste1.ItemsSelected

        Liste1.Selected(varItem) = False

    Next

End Sub

buradaki Liste Kutularının isimlerini kendi formundaki liste kutularının adlarıyla değiştirebilirsin.

tşkler hocam emeğinize sağlık