eğer aşağıdaki kodları bir modüle eklerseniz herhangi bir formdan da çağırabilirsiniz
Modul kodu

Option Compare Database

Option Explicit



Dim GSecili As String



Function basili(frm As Form, MButton As Integer)

Dim varItm As Variant

    Dim i As Long



    If MButton = 2 Then

        GSecili = ""

        For Each varItm In frm.ActiveControl.ItemsSelected

            GSecili = GSecili & "|" & varItm

        Next varItm

        GSecili = Mid(GSecili, 2)

    End If

    

    If MButton = acRightButton Then

        CreateContextMenu CStr(frm.ActiveControl.ItemsSelected.Count)

    End If



End Function



Function Birak(frm As Form, MButton As Integer)

    Dim i As Long

    Dim SplitGSecili As Variant

    If MButton = 2 Then

        SplitGSecili = Split(GSecili, "|")

        For i = 0 To frm.ActiveControl.ListCount - 1

            frm.ActiveControl.Selected(i) = False

        Next i

        For i = LBound(SplitGSecili) To UBound(SplitGSecili)

            frm.ActiveControl.Selected(SplitGSecili(i)) = True

        Next i

    End If

End Function

liste kutusumouseDown fare basılırken kodu

    basili Form, Button

liste kutusumouseUp fare bırakılırken kodu

    Birak Form, Button