Public Class frmMain
 
    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        SetupForm()
        SendToSystray()
    End Sub
 
    Private Sub frmMain_FormClosing(sender As Object, e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ExitApplication()
    End Sub
 
    Private Sub frmMain_Resize(sender As Object, e As System.EventArgs) Handles _
      Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            SendToSystray()
        End If
    End Sub
 
    Private Sub ShowMainformAtSystrayMenue_Click(sender As System.Object, e As _
      System.EventArgs) Handles ShowMainformAtSystrayMenue.Click
        ShowForm()
    End Sub
 
    Private Sub ExitApplicationAtSystrayMenue_Click(sender As System.Object, e _
      As System.EventArgs) Handles ExitApplicationAtSystrayMenue.Click
        ExitApplication()
    End Sub
 
    Sub SetupForm()
        Me.Hide()
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.ShowInTaskbar = False
        Me.MaximizeBox = False
    End Sub
 
    Sub SendToSystray()
        SystrayIcon.Visible = True
        Me.ShowInTaskbar = False
        Me.Hide()
    End Sub
 
    Sub ShowForm()
        Me.Show()
        Me.WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
        Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / _
          2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / _
          2) - (Me.Height / 2)))
        SystrayIcon.Visible = False
    End Sub
 
    Sub ExitApplication()
        SystrayIcon.Icon = Nothing
        SystrayIcon.Visible = False
        SystrayIcon.Dispose()
        Application.Exit()
    End Sub
 
End Class