Alright, that helped out alot. Got me on the right track. I used your example and modded it to my specs. This is what I came up with:
If me.Cell(row, column) = "no" then 'If the cell says no then it will clear the cell and insert a green checkmark me.Cell(row, column) = "" g.textsize = 16 g.textfont= "Wingdings" g.forecolor= RGB(200,0,0) g.DrawString "û",x,y ElseIf me.Cell(row, column) = "yes" then 'If yes then it will clear and enter a red Xmark me.Cell(row, column) = "" g.textsize = 16 g.textfont= "Wingdings" g.forecolor= RGB(0,175,0) g.DrawString "ü",x,y ElseIf me.Cell(row, column) = "---" then '--- is in a cell if the question wasnt answered, returns with a blue box me.Cell(row, column) = "" g.textsize = 16 g.textfont= "Wingdings" g.forecolor= RGB(0,0,200) g.DrawString "§",x,y EndIf 'Return true 'Silenced Return true b/c with it on, i had all the question numbers already in the listbox, and it cleared them when it entered the symbols. Thats what I am using now. Everything seems to be working great. Thanks for the help. -- View this message in context: http://www.nabble.com/Changing-font-and-color-in-individual-cells-in-ListBox-tf2242993.html#a6419647 Sent from the REALBasic - Users mailing list archive at Nabble.com. _______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
