I am running 2000 and I still get this bug. However this doesn't really answer the question of "changing" the icon. The documentation already mentioned says : <blockquot>Win32::GUI does not (yet) have a way of removing a tray icon As far as I can see, there is no way of "changing" the icon either. All you can do is add a new one. But if you can't delete the old one, that's no use either. Try out this code and tell me if the icons still disappear\change as they should (It doesn't on my system):

use Win32::GUI;

my $main = Win32::GUI::Window->new();

my $icon = Win32::GUI::Icon->new('test.ico');

my $tray = $main->AddNotifyIcon(
    -name    =>    'tray',
    -icon    =>    $icon,
    -id        =>    0,
    -tip    =>    'icon1'
);

sleep 5; # hover mouse over icon to see tooltip

undef $tray; # try and get rid of old icon

$tray = $main->AddNotifyIcon(
    -name    =>    'tray',
    -icon    =>    $icon,
    -id        =>    0,
    -tip    =>    'icon2'
);

sleep 5; # hover mouse over new icon again
[download]

Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;