应用程序不会显示气球提示

我正在VS2017中编写一个VB.NET应用程序,在Windows 10上运行。我希望主(和唯一)窗体最小化为系统托盘图标。那部分我做得很好。下一部分,显示气球提示弹出通知(例如,“应用程序仍在运行”)根本不起作用。

我已经检查/注意到以下内容:

• 这个 NotifyIcon 对象在设计器网格和窗体的vb.net代码中都有一个分配给它的图标,它的关联 BalloonTipIcon
• 机器上的组策略似乎不禁止使用气球提示
• 气球提示似乎未在注册表中禁用
• 如预期 在Windows 8.1pro中显示气球提示,但是 不

计算机位于正在进行组策略管理的域中,但是在我的计算机上找到的结果策略集似乎并不表示气球提示已被禁用。

这是代码(适用于W8.1但不适用于W10):

Private Sub frmMain_Resize(sender As Object, e As EventArgs) Handles Me.Resize

    Try

        If Me.WindowState = FormWindowState.Minimized Then

            NotifyIcon1.Visible = True
            NotifyIcon1.Icon = SystemIcons.Application
            NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
            NotifyIcon1.BalloonTipTitle = "App Title"
            NotifyIcon1.BalloonTipText = "The App is still open!"
            NotifyIcon1.ShowBalloonTip(50000)
            ShowInTaskbar = False

        End If

    Catch ex As Exception

        ErrorHandler(ex)

    End Try

End Sub

我还能在哪里找呢?

Cross-posted on SuperUser