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