AccessVBA リスト・コンボボックスで選択された項目の番号を取得する

■ListIndexプロパティはリスト・コンボボックスで選択された項目の番号を返します
　行番号は「０」からスタートし、何も選択されていないときは「-1」を返します。
【書式】

選択された項目番号 = コントロール.ListIndex

(例)

Private Sub btn10_Click() '［選択された項目番号］ボタン
    If Me.list1.ListIndex <> -1 Then
        MsgBox Me.list1.ListIndex + 1 & "行目が選択されています"
    Else
        MsgBox "リストが選択されていません"
    End If
End Sub