关于ListView自动定位加亮显示及滚动的问题

Question

各位朋友：    请教一下如何实何对查询的结果加亮显示，并且自动滚动到列表框顶部。
    下面的代码测试通过，可以自动定位，但无法加亮显示，同时对查询到的结果如果是同一个页面的内容，则不滚动，如果是不同页面会自动滚动，但该记录显示在ListView底端。 谢谢！例：自动定位到编号=123的记录，并且加亮显示，同时将该记录显示在ListView控件的顶部
With ListView1
      Set itmTemp = .FindItem("123",lvwText)
      itmTemp.EnsureVisible
      itmTemp.Selected = True
      .SelectedItem.Checked = True
End With

Answer 1

itmTemp.Selected = True之后就应该会加亮显示的吧。
再加一条ListView1.SetFocus = True