Public Sub main()
 
		Application.Run(New frm_Main())
 
	End Sub

	Private Sub frm_Main_Activated(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles MyBase.Activated
		SendToTray()
	End Sub

	Private Sub SendToTray()
 
		Me.WindowState = FormWindowState.Minimized
		Me.ShowInTaskbar = False
 
		Timer1.Interval = 10 * 60 * 1000
		Timer1.Start()
 
		NotifyIconEx1.Icon = New Icon("icon.ico")
		NotifyIconEx1.Visible = True
		NotifyIconEx1.Text = Me.Text
 
	End Sub