Power Builder - Utilizar direccionales de izq. y der.

Espero ayuden a este nuevo integrante en lo siguiente:
Tengo una aplicación en donde listo un archivo en un datawindow del tipo tabular, pero al visualizar no alcanzan los datos en el tamaño de ancho que defini en mi controldatawindow, así que incluí la barra de scroll horizontal, pero sólo puedo realizar el scroll horizontal haciendo click con el ratón en esta barra, quisiera ayuda para realizar esto pero USANDO LAS TECLAS DIRECCIONALES DE IZQUIERDA Y DERECHA

Declara en la datawindow un evento de usuario de tipo "pbm_dwnkey", y pon dentro el siguiente código (lo puedes adaptar a tus necesidades):

long ll_pos, ll_max_pos

// Comprobar la tecla pulsada
choose case key
case KeyLeftArrow!
// Izquierda
ll_pos = long(this.Object.DataWindow.HorizontalScrollPosition)
if ll_pos > 0 then
ll_pos -= 10
this.Object.DataWindow.HorizontalScrollPosition = string(ll_pos)
end if
return 1
case KeyRightArrow!
// Derecha
ll_pos = long(this.Object.DataWindow.HorizontalScrollPosition)
ll_max_pos = long(this.Object.DataWindow.HorizontalScrollMaximum)
if ll_pos < ll_max_pos then
ll_pos += 10
this.Object.DataWindow.HorizontalScrollPosition = string(ll_pos)
end if
return 1
end choose
return 0

¡Muchas gracias tocayo, estoy en deuda!

¡Muchas gracias tocayo, estoy en deuda!