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