请教：用方向箭控制listview的问题

Question

表单上有一个listview和label,用方向健选择listview中的item时，
lab 总是显示上一个selectitem ？
代码：
Private Sub ListView_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Or KeyCode = 40 Then
    lab.caption = ListView.SelectedItem.Text
End If
End Sub

Answer 1

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Label1.Caption = ListView1.SelectedItem.Text
End Sub