vb托盘问题

vb模态窗口托盘问题,如果托盘的话,js代码控制的window.focus就无法获得焦点,托盘不能自动弹出如果不托盘,直接最小化,则window.focus可以获得焦点,VB窗体自动弹出.这是托盘部分代码:Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
'' 如果窗口关闭是由关闭按钮或从窗体系统菜单中选择“关闭”指令
Cancel = 1 ' '终止关闭过程
Me.Hide
哪位大侠帮忙解决一下