请问如何给ListBox的每个Item前加上个图标？谢了(100分)

用Delphi 6吧，它有这样的listbox控件

you see codes
procedure TFmMain.ListBoxGroupUserDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
ListBoxGroupUser.Canvas.FillRect(rect);
ImageListView.draw(ListBoxGroupUser.Canvas,rect.Left+2,Rect.top+2,0);
ListBoxGroupUser.Canvas.TextOut(Rect.Left+ImageListView.Width+2*2,Rect.Top+3,ListBoxGroupUser.Items.Strings[index]);
end;

to 赵普昉:
大哥是CSDN上的AdminBO吗？再感谢一遍。

to z.d.callous
我的程序都在D5上，要改用D6要做很多调整。而且我觉得，用代码实现可使自己了解更多
我不想自己变成控件奴隶。
不过，还是要感谢你提供的信息。