Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Me.TrayIcon = New System.Windows.Forms.NotifyIcon(Me.components)
        Me.TrayMenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.DienstNeuToolStripMenuItem = New _
          System.Windows.Forms.ToolStripMenuItem
        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
        Me.DebugAnzeigenToolStripMenuItem = New _
          System.Windows.Forms.ToolStripMenuItem
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.TrayMenu.SuspendLayout()
        Me.SuspendLayout()
        '
        'TrayIcon
        '
        Me.TrayIcon.ContextMenuStrip = Me.TrayMenu
        Me.TrayIcon.Visible = True
        '
        'TrayMenu
        '
        Me.TrayMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() _
          {Me.DienstNeuToolStripMenuItem, Me.ToolStripSeparator1, _
          Me.DebugAnzeigenToolStripMenuItem})
        Me.TrayMenu.Name = "TrayMenu"
        Me.TrayMenu.Size = New System.Drawing.Size(175, 54)
        '
        'DienstNeuToolStripMenuItem
        '
        Me.DienstNeuToolStripMenuItem.Name = "DienstNeuToolStripMenuItem"
        Me.DienstNeuToolStripMenuItem.Size = New System.Drawing.Size(174, 22)
        Me.DienstNeuToolStripMenuItem.Text = "Dienst neu &starten"
        '
        'ToolStripSeparator1
        '
        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
        Me.ToolStripSeparator1.Size = New System.Drawing.Size(171, 6)
        '
        'DebugAnzeigenToolStripMenuItem
        '
        Me.DebugAnzeigenToolStripMenuItem.Name = _
          "DebugAnzeigenToolStripMenuItem"
        Me.DebugAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(174, _
        22)
        Me.DebugAnzeigenToolStripMenuItem.Text = "&Debug anzeigen"
        '
        'Timer1
        '
        '
        'frmACExportGUI
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(292, 268)
        Me.ControlBox = False
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmACExportGUI"
        Me.ShowIcon = False
        Me.ShowInTaskbar = False
        Me.Text = "frmACExportGUI"
        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
        Me.TrayMenu.ResumeLayout(False)
        Me.ResumeLayout(False)
 
    End Sub
 
    Friend WithEvents TrayMenu As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents DebugAnzeigenToolStripMenuItem As _
      System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ToolStripSeparator1 As _
    System.Windows.Forms.ToolStripSeparator
    Friend WithEvents DienstNeuToolStripMenuItem As _
    System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents TrayIcon As System.Windows.Forms.NotifyIcon
 
 
 
Public Class frmACExportGUI
    Private CCom As New CCommunicate()
    Private m_TCPConnect As CThreadTCP
 
    Public Sub New()
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
 
        p_objTrayIcon = Me.TrayIcon
 
        Me.TrayIcon.Text = "acExport GUI"
        Me.TrayIcon.Icon = Tools.GetIcon( _
          Reflection.Assembly.GetExecutingAssembly, "TrayStopped.ico")
        Me.TrayIcon.ContextMenuStrip = Me.TrayMenu
        Me.Size = New System.Drawing.Size(0, 0)
        Me.ShowInTaskbar = False
        Me.Hide()
 
        m_TCPConnect = New CThreadTCP()
        m_TCPConnect.TCPStart(AddressOf TCPConnectCallback)
 
        Timer1.Interval = 30000
        Timer1.Enabled = True
        Timer1.Start()
End Class
    End Sub