Dim c As system.Diagnostics.Process
		Dim p As system.Diagnostics.Process
		dim arg as string
		dim doClose as boolean
		c = system.Diagnostics.Process.GetCurrentProcess
		For Each p In system.Diagnostics.Process.GetProcessesByName(c.ProcessName)
			If p.Id <> c.Id Then
				If Not p Is Nothing Then
					For Each arg In Environment.GetCommandLineArgs
						If arg = "exit" Then 
							p.Kill
							systemicon.Visible=False
							end
						End If
					Next
					Msgbox("Läuft bereits")
					systemicon.Visible=false
					me.close
				End If
			End If	
		Next