请问 怎么关闭托盘菜单

请教 如何关闭托盘菜单
Private   Sub   Form_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)
        Dim   lMsg   As   Single
        lMsg   =   X   /   Screen.TwipsPerPixelX
        Select   Case   lMsg
        Case   WM_LBUTTONUP
                ShowWindow   Me.hwnd,   SW_RESTORE
                Me.Show
                Me.SetFocus
               
        Case   WM_RBUTTONUP
                PopupMenu   mnuMain
        End   Select
End   Sub


我按以上的方法,   右键单击托盘图标打开了菜单

随后发现一个问题,   如果不点击菜单中的项目,   这菜单就不能自己关闭,   始终显示在那里.

其他的托盘程序,   在菜单打开后,   如果鼠标点击其他空白区域   (比如桌面),   这菜单就会自己消失.   不知这是怎么实现的,   请大家指教.


[解决办法]
Case WM_RBUTTONUP
SetForegroundWindow Me.hwnd
PopupMenu mnuMain


[解决办法]
楼主的程序不完整。但可以肯定的是，在打开托盘菜单之前应该用SetForegroundWindow函数将当前窗体设置成前景窗体就可以解决楼主的问题。
[解决办法]
记得在某个帖子里有个大牛说过,是焦点问题.

顶.