'
' Created by SharpDevelop.
' User: Benedikt
' Date: 04.01.2006
' Time: 20:50
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System
Imports System.Drawing
Imports System.Windows.Forms
 
Namespace NotifyIcon1
 
	Public Class Form1
		Inherits System.Windows.Forms.Form
		Private components As System.ComponentModel.IContainer
		Private notifyIcon1 As System.Windows.Forms.NotifyIcon
 
		Public Shared Sub Main
			Dim fMainForm As New Form1
			fMainForm.ShowDialog()
		End Sub
 
		Public Sub New()
			MyBase.New
			'
			' The Me.InitializeComponent call is required for Windows Forms designer 
' support.
			'
			Me.InitializeComponent
			'
			' TODO : Add constructor code after InitializeComponents
			'
		End Sub
 
		#Region " Windows Forms Designer generated code "
		' This method is required for Windows Forms designer support.
		' Do not change the method contents inside the source code editor. The Forms 
' designer might
		' not be able to load this method if it was changed manually.
		Private Sub InitializeComponent()
			Me.components = New System.ComponentModel.Container
			Me.notifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
			'
			'notifyIcon1
			'
			Me.notifyIcon1.Text = "NotifyIcon1"
			Me.notifyIcon1.Visible = true
			AddHandler Me.notifyIcon1.MouseDown, AddressOf Me.NotifyIcon1MouseDown
			'
			'Form1
			'
			Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
			Me.ClientSize = New System.Drawing.Size(292, 266)
			Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
			Me.Name = "Form1"
			Me.Opacity = 0
			Me.ShowInTaskbar = false
			Me.Text = "Form1"
			Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
		End Sub
		#End Region
 
 
 
 
 
 
 
 
 
 
 
		Private Sub NotifyIcon1MouseDown(sender As System.Object, e As _
  System.Windows.Forms.MouseEventArgs)
 
 
 
 
 
 
 
 
		Private Sub Form1_Load(ByVal sender As System.Object, _ 
  ByVal e As System.EventArgs _ 
  ) Handles MyBase.Load 
  ' In der Entwicklungsumgebung wurde dieser Form das 
  ' unsichtbare Steuerelement NotifyIcon hinzugefügt, 
  ' das den Namen "NotifyIcon1" erhalten hat. 
  ' Ein Icon laden und in der "Tray" sichtbar anzeigen 
  With NotifyIcon1 
 .Icon = New Icon("javascript:void(null);") 
 .Text = "Testanwendung" 
 .Visible = True 
  End With 
End Sub
 
 
 
 
		Private Sub Form1_SizeChanged(ByVal sender As Object, _ 
   ByVal e As System.EventArgs _ 
   ) Handles MyBase.SizeChanged 
  ' Normalen Taskbar-Eintrag entfernen, wenn die 
  ' Form minimiert wird: 
  If WindowState = FormWindowState.Minimized Then 
 ShowInTaskbar = False 
  End If 
End Sub 
Private Sub NotifyIcon1_Click(ByVal sender As Object, _ 
   ByVal e As System.EventArgs _ 
   ) Handles NotifyIcon1.Click 
  ' Form anzeigen, falls sie minimiert ist: 
  If WindowState = FormWindowState.Minimized Then 
 WindowState = FormWindowState.Normal 
 ShowInTaskbar = True 
  End If 
End Sub	
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
		End Sub
 
	End Class
End Namespace