谁帮忙看看这是咋么回事

[subol]

基础的功能是一个小窗口输入用户和密码之后登陆，寻找到对应的标题之后放大此窗口。
尝试添加：点关闭窗口会把程序缩到托盘出现气泡提示，同时托盘的图标双击可恢复窗口，并且右键有菜单恢复和退出功能，这一点在小窗口的时候已经实现。
但转换成大窗口之后点关闭，在托盘只出现提示，双击无反应，右键也无菜单退出。
请教各位能不能看看这是怎么回事呢？下附代码：
我用的控件是：EFMTIcn.ocx

Option Explicit

Private Declare Function SetForegroundWindow Lib "USER32" (ByVal hWnd As Long) As Long

Private Sub Form_Load()
    Me.Caption = Me.Caption & " v" & App.Major & "." & App.Minor & "." & App.Revision
    
    With EFMTrayIcon1
        .IconTooltipText = "现在当前窗口屏幕上能看到"
        .Visible = True
        .TimeOut = 1
        .PopupBalloon Me, "想要写的的信息写在这里!", "这里是气泡标题", IconERROR
        .TimeOut = 0
    End With
    WebBrowser1.Navigate "http://127.0.0.1/login.asp"
End Sub

Private Sub Timer1_Timer()
Me.Caption = WebBrowser1.LocationName
If InStr(Me.Caption, "您已登陆管理系统") > 0 Then
frmTest.Width = 13600
frmTest.Height = 8400
Dim oldwidth, oldheight
WebBrowser1.Width = 13600
WebBrowser1.Height = 8400
WebBrowser1.ToolBar = 0
frmTest.Left = (Screen.Width - frmTest.Width) / 2
frmTest.Top = (Screen.Height - frmTest.Height) / 2
Timer1.Enabled = False
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
        '不退出最小化到托盘
        Cancel = 1
        
        With EFMTrayIcon1
            .IconTooltipText = "双击图标还原窗口"
            .Visible = True
            .TimeOut = 0
            
            .ChangeSystrayToolTip Me, "双击图标还原窗口"
            .PopupBalloon Me, "本程序现在隐藏到托盘!" + vbCrLf + _
              "双击图标还原窗口", "提醒"
        End With
        Me.Hide
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    EFMTrayIcon1.Visible = False
End Sub

Private Sub mnuEnd_Click()
    Unload Me
End Sub

Private Sub EFMTrayIcon1_DoubleClick()
    mnuRestore_Click
End Sub

Private Sub EFMTrayIcon1_RightClick()
    SetForegroundWindow Me.hWnd
    EFMTrayIcon1.RemoveBalloon
    
    '弹出菜单
    PopupMenu Me.mnuFile
End Sub

Private Sub mnuRestore_Click()
    With EFMTrayIcon1
        .ChangeSystrayToolTip Me, "现在当前窗口屏幕上能看到"
        SetForegroundWindow Me.hWnd
        .RemoveBalloon
    End With
    
    Me.WindowState = vbNormal
    Me.Show
    Me.SetFocus
End Sub