Desplazar ScrollBar de TDBGrid

[eureka]

Si señores! Son un valor seguro. La propuesta hecha por Neftali funciona bien.

Código Delphi [-]
 
iPosSbHorz:= GetScrollPos((Column.Grid As TSPDBGrid).Handle,SB_HORZ);
 
...
 
while GetScrollPos(Handle,SB_HORZ) < iPosSbHorz do
SendMessage(Handle, WM_HSCROLL, SB_LINERIGHT, 0);

Gracias a todos

Sabrían como pintar la "muesca","triángulo"... de ordenación en el encabezado de columna de una TDBGrid?