Help for this page
my $ni = $main->AddNotifyIcon( -name => "NI", -icon => $niIcon, -tip => "The Electronic Brewery", );
$didItWork = Win32::GUI::Change($ni->{-handle}, ( -icon => $tebIcon, +));