column icon

I am trying to add icons to my column of reportcontrol, but for some reason the icons are not dipalyed, what I am doing wrong:

Code

 

 

Const ATTCHNENT = 100

Const WARNING =101

 

Dim Column As ReportColumn

wndview.Columns.DeleteAll
wndview.Records.DeleteAll
wndview.SetImageList imlToolbarIcons

Dim i As Integer
    With wndview
        Set Column = .Columns.Add(0, "", 15, True)
        Column.Icon = ATTACHMENT
        Set Column = .Columns.Add(1, "", 15, True)
        Column.Icon = WARNING
        .Columns.Add 2, "Due Date", 150, True
        .Columns.Add 3, "User", 150, True
        .Columns.Add 4, "Subject", 180, True
    End With
   
   AddTask True, True, Date, "Joe", "Task # 1"

 

    wndview.Populate

 

 

Note: I am using ImageList Control

 

and when I try to add task to my reportcontrol, nothing row is added????

 

code

 

Function AddTask(ATTACH As Boolean, WARNING As Boolean, TaskDate As Date, TaskUser As String, TaskSubject As String) As ReportRecord

    Dim Task As ReportRecord
    Dim ItemTask As ReportRecordItem
   
    Set ItemTask = Task.AddItem(ATTACH)
    If ItemTask.Value = True Then
        ItemTask.Icon = ATTACHMENT
    End If
    Set ItemTask = Task.AddItem(WARNING)
    If ItemTask.Value = True Then
        ItemTask.Icon = WARNING
    End If
    Task.AddItem TaskUser
    Task.AddItem TaskSubject
   
    Set AddTask = Task
   
End Function

 

 

Thank you,

 

I tried but not luck and yes I am using 16x16.

any other suggestion

Thank you

 

it's all about the number, you are right is the index who did it.

sorry for the trouble.

Thank you