moverse con teclado en listview

[analoyra]

Hola, tengo este evento en un listview, pero si quiero moverme con las flechas del teclado se me dispara el evento, como puedo hacer para que me deje moverme y se active con la tecla de enter?? Gracias de antemano


Private Sub lv1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim Ace As String
If TipoLista = "COMPRA" Then
Ace = Item
'Pone los items

FrmCompra.Txttipo = Ace
FrmCompra.TxtTipoComp = Ace
FrmCompra.Text1 = Item.SubItems(1)
FrmCompra.Text2 = Item.SubItems(2)
FrmCompra.Show
FrmLisTipo.Visible = False
Else
Ace = Item
m = MsgBox("Desea editar esta clave?", vbYesNo, "Tipo Comprobante")
If m = vbYes Then
FrmTpoCOmpro.txtClave = Ace
FrmTpoCOmpro.txtClave.Enabled = False
FrmTpoCOmpro.TxtDesc = Item.SubItems(1)
FrmTpoCOmpro.TxtSigla = Item.SubItems(2)
FrmTpoCOmpro.Txtsigno = "" & Item.SubItems(3)
FrmTpoCOmpro.Show
FrmTpoCOmpro.CmdGuardar.Visible = False
FrmLisTipo.Hide
Else
Cancel = True
End If
End If
End Sub