لو سمحتو اريد لما اضغط ضغطة واحدة على ال List يحددلي فقط الإسم الذي ضغط عليه ويلغي باقي التحديد

أخواني الخبراء والأعزاء اريد من فلضكم ان اعرف هل و يوجد كود لهذا لشي

انتظر ردكم بفارغ الصبر والله

اريد الكود ضروري

تفضل هذا الكود مع الحدث Click

Private Sub OsenXPListBox1_Click()
    Dim CurSelect As Integer
    CurSelect = OsenXPListBox1.ListIndex
    For n = 0 To OsenXPListBox1.ListCount - 1
      If n <> CurSelect Then OsenXPListBox1.Selected(n) = False
    Next
End Sub

الله يوفقك دنيا وآخرة اخي عبدالفتاح حسن

زبط هلا الكود