sub Tray_RightClick {
    print "Right Click\n";
    my ($x,$y) = Win32::GUI::GetCursorPos();
    
    my $menu = new Win32::GUI::Menu(
            "tray"      => "tray",
            " > exit"    => "Exit",
            " > foo"     => {-text => "foo", -name => "NI_b", -checked => 1 },
            " > bar"     => "NI_b",
            " > foobar"  => "NI_b",
        );

    $main->TrackPopupMenu($menu->{tray}, $x, $y);
    1;
}