最小化至系统托盘

'隐藏窗体，显示托盘NotifyIcon空间:NIcon
    Sub HideMyForm()
        Me.ShowInTaskbar = False
        Me.NIcon.Visible = True
        Me.Hide()
    End Sub
    
   '显示窗体
    Sub ShowMyForm()
        Me.Show()
        Me.ShowInTaskbar = True
        Me.WindowState = FormWindowState.Normal
        '要在先设定Nicon的Visible为False，即最小化到托盘
        Me.NIcon.Visible = False
    End Sub 
    
    
  '窗体最小化时候隐藏窗体，
  Private Sub MainForm_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Minimized Then
            Me.Hide()
            Me.ShowInTaskbar = False
            Me.NIcon.Visible = True
        End If
    End Sub
    
    '隐藏窗体按钮
    Private Sub BtHideForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHideForm.Click
        Me.HideMyForm()
    End Sub
    
    '双击托盘，显示窗体
    Private Sub NIcon_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NIcon.DoubleClick
        Me.ShowMyForm()
    End Sub