[Resolvido]Excluir Através tecla Del

Como selecionar e escolher uma linha no subformulário usando a tecla Del?

Boa noite

Excluir aonde ?

Formulário Continuo; Caixa de Listagem; ?

Olá assis formulário continuo.

Agravina
Pode postar só esse formulario e a tabela ?

Aguardo

Quero registro do subformulário via tecla Del

Com a tecla em baixo

No campo Itens

depois seleciona a linha com o mouse e aperta DELETE

Private Sub Itens_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
If MsgBox("Eliminar  ?  " & (Texto3) & Chr(10) + Chr(13) & Itens, vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord

MsgBox "Artigo Anulado com Sucesso ! ", , "Aviso"
DoCmd.Close
Exit Sub
Else
Exit Sub
End If
End If

End Sub

Valeu Assis funcionou perfeitamente!
Só uma pergunta estou tentando mandar o foco de novo para form após deletar
da seguinte forma mas não certo

If KeyCode = vbKeyDelete Then
If MsgBox("Confirma Excluir Item ? " & (Texto3) & Chr(10) + Chr(13) & Itens, vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
Me.codbarras.SetFocus
Exit Sub
Else
Exit Sub
End If
End If
End Sub

ou

If KeyCode = vbKeyDelete Then
If MsgBox("Confirma Excluir Item ? " & (Texto3) & Chr(10) + Chr(13) & Itens, vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
forms!pontodevenda.setfocus
Exit Sub
Else
Exit Sub
End If
End If
End Sub

Teste

If KeyCode = vbKeyDelete Then
If MsgBox("Confirma Excluir Item ? " & (Texto3) & Chr(10) + Chr(13) & Itens, vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
forms!frmpontodevenda!CodBarras.setfocus
Exit Sub
Else
Exit Sub
End If
End If

Perfeito assim!
Obrigado novamente!