... LoadBitMap(Getresources(),"Blauw"),; LoadBitMap(Getresources(),"Purper"),; LoadBitMap(Getresources(),"Rood") } Redefine ListBox oLBX1; Fields ; aBmp[Max(Q->Kleur,1)], Q->Txt2; Headers "", "Dossiernaam"; Select Q->QId For aQ[1,1]; On Left DblClick (nRekNr := Q->(Recno()),EditJobFrm(oLbx1,Q->SetId) ...