sub change_icon {
    my ($status_color,$status_text) = @_;
    Win32::GUI::NotifyIcon::Modify($winMaster,
    -id => $$,
    -icon => $$status_color,
    -tip => " Status: $status_text" );
    1; #Don't end the dialog() loop

}