my $ni = $main->AddNotifyIcon(
  -name => "NI",
  -icon => $niIcon,
  -tip  => "The Electronic Brewery",
);

##</code><code>##

$didItWork = Win32::GUI::Change($ni->{-handle}, (  -icon  => $tebIcon,));