>WITH THISFORM.cboBroselow > .AddItem("",.ListCount+1) > .PICTURE(1) = "\arrest\red.bmp" > .AddItem("",.ListCount+1) > .PICTURE(2) = "\arrest\purple.bmp" > .AddItem("",.ListCount+1) > .PICTURE(3) = "\arrest\yellow.bmp" > .AddItem("",.ListCount+1) > .PICTURE(4) = "\arrest\white.bmp" > .AddItem("",.ListCount+1) > .PICTURE(5) = "\arrest\blue.bmp" > .AddItem("",.ListCount+1) > .PICTURE(6) = "\arrest\orange.bmp" > .AddItem("",.ListCount+1) > .PICTURE(7) = "\arrest\green.bmp" >ENDWITH >>
>IF THIS.ListIndex = 3 > THIS.BackColor = RGB(255,255,0) > THIS.DisabledBackColor = RGB(255,255,0) >ENDIF >>
WITH THISFORM.cboBroselow .AddItem("",.ListCount+1) .PICTURE(1) = "\arrest\red.bmp" .AddListItem("RGB(255,0,0)", .NewItemID, 2) etc., etc.....Then in the Interactive Change
With this .BackColor = Eval(.List(.ListIndex,2))) EndWithNote: