如何用键盘上下键来控制gridview list行的选择

' selected girdview rows using keyboard operate
Private Sub gdv_route_points_list_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles gdv_route_points_list.KeyDown

Dim index As Integer = Me.gdv_route_points_list.SelectedRows(0).Index
If index < 0 Or index > Me.gdv_route_points_list.Rows.Count Then
Return
End If
If e.KeyValue = &H26 And index > 0 Then
Me.gdv_route_points_list.Rows(index - 1).Selected = True
Me.gdv_route_points_list_CellClick(Nothing, Nothing)
ElseIf e.KeyValue = &H28 And index < Me.gdv_route_points_list.Rows.Count - 1 Then
Me.gdv_route_points_list.Rows(index + 1).Selected = True
Me.gdv_route_points_list_CellClick(Nothing, Nothing)
End If

End Sub