■リストボックスの選択アイテムの処理例

    ※選択されているアイテムを表示

    Dim ctl As Control
    Dim varItm As Variant
    Set ctl = Me!s 'リストボックスの名前

    For Each varItm In ctl.ItemsSelected
        Debug.Print ctl.ItemData(varItm)
    Next varItm

■リストボックスの選択アイテムの処理例

    ※全アイテムの選択解除

    Dim I
    Dim ctl As Control
    Set ctl = Me!s 'リストボックスの名前

    For I = 0 To ctl.ListCount - 1
        ctl.Selected(I) = False
    Next I
　

■リストボックスの選択アイテムの処理例 ２

    ※全アイテムの選択解除

    Me!s = "" 'リストボックスの名前
　

■選択 数の取得

    Dim ctl As Control
    Dim varItm As Variant
    Set ctl = Me!s 'リストボックスの名前

    Msgbox ctl.ItemsSelected.Count