GUI поверх shell tray

[Poma_007]

Есть менюшка:

Opt('MustDeclareVars', 1)

dim $tray_width, $tray_height, $pos, $_gui_menu

$tray_width = 160
$tray_height = 300
					
$pos = MouseGetPos()

$_gui_menu = GUICreate('Меню' , $tray_width, $tray_height, $pos[0]-$tray_width , $pos[1]-$tray_height)
WinSetOnTop(-1, '', 1)
GUISetBkColor (0x000000)

GUISetState()

Do
Until GUIGetMsg() = -3

Дело в том, что это окно не перекрывает shell tray, т.е. получается вот так:

А мне как раз нужно, чтобы окно было поверх.

 

[madmasles]

Poma_007,
Поменяйте

WinSetOnTop($_gui_menu, '', 1)

 

[kaster]

{TopicSolvedInfo}