* No Formulário: ThisForm.KeyPreview = .T. * No evento KeyPress do Formulário LPARAMETERS nKeyCode, nShiftAltCtrl If nKeyCode=22 .and. nShiftAltCtrl=0 ThisForm.BotaoIncluir.Click EndIf If nKeyCode=7 .and. nShiftAltCtrl=0 ThisForm.BotaoDeletar.Click EndIfPronto!!!! []s