Aqui Está un Ejemplo:
REDEFINE LISTBOX oLbx ;
FIELDS TRANSFORM(TMPLIMIT->F_INICIO,'99/99/9999') ,;
TRANSFORM(TMPLIMIT->F_FINAL,'99/99/9999') ,;
TMPLIMIT->VERS+CRLF+TMPLIMIT->VERS2 ,; //doble linea
TRANSFORM(TMPLIMIT->LIMITE,'999,999,999.99'),;
IIF(TMPLIMIT->FLK_ACTIVO,'Activo','Inactivo');
FIELDSIZES 75,75,95,105,95,95;
MESSAGE "Seleccione Versión/LÃmite/Vigencia ";
HEADERS "Desde","Hasta","Version","Monto Limite","Estatus";
ID 401 OF oDlg ;
WHEN lEdit .and. lMod
oLbx:cAlias := "tmplimit"
oLbx:nFreeze := 5 && Congela hasta la Quinta columna
oLbx:nHeaderHeight := 31 && Da la altura del header
oLbx:nLineHeight := 31 && Da la altura de Line
oLbx:Set3DStyle()
oLbx:Ajustify := {0,0,0,1,0}
Suerte!