"Fare tuşuna basılırken" kodlarına

Dim i As Long

Dim GSecili As String



    If Button = 2 Then

        GSecili = ""

        For i = 0 To Metin3.ListCount - 1

            GSecili = GSecili & "," & Metin3.Selected(i)

        Next i

        GSecili = Mid(GSecili, 2)

    End If

kodu ekle,

fare tuşu bırakılırken kodlarındaki eski kodu aşağıdaki ile değiştir.

Dim GSecili As String

Dim i As Long

Dim SplitGSecili As Variant

    If Button = 2 Then

        SplitGSecili = Split(GSecili, ",")

        For i = 0 To Metin3.ListCount - 1

            Metin3.Selected(i) = SplitGSecili(i)

        Next i

    End If

Sağ tıkla yapılacak işlemi bilmiyorum.

CStr(Metin3.ItemsSelected.Count)

Kodu, liste kutusunda seçili satırların sayısını verir.