트레이 메뉴 포커스 잃으면 없어지기..

Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
popupmenu 를 띄우기 바로 윗 라인에..
            SetForegroundWindow Me.hwnd

 추가하면 됨.