Ana Formdaki Liste Kutularında Seçimi Kaldırma

ekteki resimde 3 tane listes kutusu var liste kutularından herhangibi birine tıkladığımda diğer kutulardaki seçimi kaldırması lazım . şu anda görüldüğü üzere hepsi siyah hangisini seçtiğimi fark edemiyorum.
nasıl bi kod olması lazım veya özelliklerdemi bunun çözümü

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.

(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

rica ederim, kolay gelsin...