draw background Color in listbox only rows is 1

General
1

Hi
I have listbox in project .
I want draw background Color in listbox only rows is 1
how to ?

Thank !!!

2

Function CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) As Boolean
if row = 0 then
g.ForeColor = &cFF0000
g.FillRect 0, 0, g.Width, g.Height
Return true
end if
End Function

3

Thank you… Joachim Kuno

4

If I want draw text color in listbox only rows is 1 ?

5

Function CellTextPaint(g As Graphics, row As Integer, column As Integer, x as Integer, y as Integer) As Boolean
if row=0 then g.ForeColor=&cFF0000
End Function

6

if I have 5 column is “name” , “Surname”,“Tell”,“Adress”,“Sex”
then I want draw text color in listbox is Sex = male
How to ?
thank you !!!

7 
FUNCTION CellTextPaint(index as integer, g as graphics,row as integer,column as integer) as boolean

if row<me.listcount then 
  if me.cell(row,4)="MALE" then 
    g.forecolor=&cff0000 ' change to color of your choice
  else
    g.forecolor=&c000000
  end if
end if

END FUNCTION

this will color all cells on a row, if Gender is Male