Listbox column font possible?

I was wondering if it was possible to have different column fonts in a listbox. I tried this in CellTextPaint.

g.DrawingColor = &c000000
select case column
case 0
g.FontName = “AppleGothic”
g.DrawText(“Apple Gothic”,x,y+5,me.Width)
case 1
g.FontName = “System”
end select

return true

In both cases it displayed the text in AppleGothic. Is there another way this might be possible?

Thanks in advance for any help.

I figured out that I needed to do SelectCase Row and then it worked perfectly. Sorry to bother anyone!