求解：列表框是多重选择类型的取值

点击下载此附件

一个列表框，用了多重选择，由于不能用List.value的方式获取列表框当前值，所以用了如下方式获取当前值。现在的问题是：单击选择列表框项能正常取值，但用方向键上下选择值的时候，值就不能同步显示了，具体见附件，先谢谢各位老大费心帮助了。

   Dim ctl As Control, x As Variant
    Set ctl = Me.List0

    For Each x In ctl.ItemsSelected
       yy = ctl.Column(0, x)
       yyy = ctl.Column(1, x)
    Next
    Set ctl = Nothing