Este script se brindó hace algún tiempo. Adaptándolo a tu caso, sería:
1. Declarar en global external function:
subroutine keybd_event(char VK, char Scan, ulong Flags, ulong ExtraInfo) library "user32.dll"
2. Declarar un evento de usuario en el control DW:
Event Name: ue_key id:
Event ID: pbm_dwnkey
3. En este evento ue_key, pegas:
//--------------------------------
choose case key
// Tecla <----
case keyLeftArrow!
keybd_event(char(16), char(42), 0, 0)
keybd_event(char(9), char(15), 0, 0)
keybd_event(char(9), char(15), 2, 0)
keybd_event(char(16), char(42), 2, 0)
// Tecla ---->
case keyRightArrow!
keybd_event(char(9), char(15), 0, 0)
keybd_event(char(9), char(15), 2, 0)
// Poner cualquier tecla(s) que se quiere ignorar
case keyPageUp!, keyPageDown!, keyHome!, keyEnd!
// no hacer nada
case else
return // proceso por defecto
end choose
message.Processed = True
return 1
//-------Fin------------
Eso es todo.