Metin3'ün fare tuşu bırakılırken özelliğine

Dim varItem As Variant



If Button = 2 Then

   For Each varItem In Metin3.ItemsSelected

     Metin3.Selected(varItem) = False

   Next varItem

End If