vb.net通知图标 - 多个图标

Question

在托盘中，程序运行过程中会出现多个图标。我不知道为什么。我目前有这个代码：

Public Sub ShowBalloonTip(ByVal Text As String, ByVal Title As String)
    niMain.Visible = False
    niMain.BalloonTipText = Text
    niMain.BalloonTipTitle = Title
    niMain.BalloonTipIcon = ToolTipIcon.Info
    niMain.Visible = True
    niMain.ShowBalloonTip(1000)
End Sub

当表单关闭时，我将对象设置为不可见。

我该怎么做才能解决这个问题？