sub systray_RightClick {
    my $systray_menu = new Win32::GUI::Menu( 
        "SystrayMenu Functions" => "SystrayMenu",
        "> &Flirtwelt.net Startseite" => "",
        "> &Meine Mailbox (0 Neue Nachrichten)" => "",
        ">-" => "",
        "> Mein Status" => "",
        ">>  Online" => 'set_status(1)',
        ">>  Beschäftigt" => 'set_status_Click(2)',
        ">>  Bin gleich zurück" => 'set_status(3)',
        ">>  Abwesend" => 'set_status(4)',
        ">>  Mittagspause" => 'set_status(5)',
        "> Abmelden" => { -name => 'open_main', -state => 1 },
        ">-" => "",
        "> Öffnen" => { -name => 'open_main', -bold=>1 },
        "> Beenden" => 'quit'
    );
    my($x, $y) = Win32::GUI::GetCursorPos();
    $config{Win32Window}->TrackPopupMenu($systray_menu->{SystrayMenu},   $x-50, $y);
}