VB.net 任务栏标签显示

    ’显示画面

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

        If Me.WindowState = FormWindowState.Minimized Then

            Me.WindowState = FormWindowState.Normal   '还原     

        End If

        Me.Activate()

        Me.ShowInTaskbar = True

    End Sub

‘隐藏画面

    Private Sub HolidayAndWorkingday_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize

        If Me.WindowState = FormWindowState.Minimized Then

            Me.ShowInTaskbar = False

        End If

    End Sub

’退出

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click

        Application.Exit()

    End Sub