Private Sub frm_SizeChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.SizeChanged
        Select Case Me.WindowState
            Case FormWindowState.Minimized
                NotifyIcon.Visible = True
                Me.ShowInTaskbar = False
            Case FormWindowState.Normal, FormWindowState.Maximized
                NotifyIcon.Visible = False
                Me.ShowInTaskbar = True
        End Select
    End Sub
    Private Sub NotifyIcon_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles NotifyIcon.DoubleClick
        Me.WindowState = FormWindowState.Normal
        Me.Activate()
    End Sub