VCL Delphi


            Code By GeNiUS !
genius_user@yahoo.com
procedure TForm1.Button1Click(Sender: TSender);
 var
 Icon: TIcon;
 begin
 Icon := TIcon.Create;
 Icon.LoadFromFile('ORANGE.ICO');
 ListBox1.Items.AddObject('Orange', Icon);
end;