Bild in Listbox Cell malen

[Stefan Sicurella]

Hi,

ich möchte mit diesem Code ein Icon in die erste Splate malen, dabei kommt es 
zu einem OutOfBounds.. die Listbox hat aber definitiv mehr als 14 Spalten.

Function CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) 
As Boolean
  if column=0 then
    if me.cell(row,14)="1" then g.DrawPicture adr_16,1,1
  end if
  return true
End Function


Hat jemand eine Idee?

Gruß

Stefan