[.NET] Minimize to Tray

[Yin]

Surprised this wasn't posted yet.

Code:

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
  
      If Me.WindowState = FormWindowState.Minimized Then
  
      Me.Hide()
  
      End If
  
      End Sub
  
      Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
  
      If Me.WindowState = FormWindowState.Minimized Then
  
      Me.Show()
  
      Me.WindowState = FormWindowState.Normal
  
      End If
  
      End Sub

[RaZoR03]

Surprised this wasn't posted yet.

Code:

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
  
      If Me.WindowState = FormWindowState.Minimized Then
  
      Me.Hide()
  
      End If
  
      End Sub
  
      Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
  
      If Me.WindowState = FormWindowState.Minimized Then
  
      Me.Show()
  
      Me.WindowState = FormWindowState.Normal
  
      End If
  
      End Sub

Easy,but nice..

Thanks

[Emily]

Thanks for the code! I will add this to my project.