EDOKA_Client/EDOKA/Backup/Profile/Profilinfo.vb

Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Color

Public Class frmProfilinfo
    Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
    Friend WithEvents btnClose As System.Windows.Forms.ToolBarButton
    Friend WithEvents btnSave As System.Windows.Forms.ToolBarButton
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents btnOpen As System.Windows.Forms.ToolBarButton
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents MnuListe As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    Friend WithEvents Label25 As System.Windows.Forms.Label
    Friend WithEvents ComboBox10 As System.Windows.Forms.ComboBox
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents ComboBox9 As System.Windows.Forms.ComboBox
    Friend WithEvents Profile As System.Windows.Forms.TreeView
    Friend WithEvents CTMenuErsteller As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
    Friend WithEvents CTMenuVerantwortlicher As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
    Friend WithEvents CTMenuMutierer As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem
    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet1 As System.Data.DataSet
    Friend WithEvents ctmenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
    Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
    Friend WithEvents MnuDel As System.Windows.Forms.MenuItem
    Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MnuSelectDokumentart As System.Windows.Forms.MenuItem
    Friend WithEvents MnuDeleteDokumentart As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
    Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents pnlhostdiv As System.Windows.Forms.Panel
    Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents Button10 As System.Windows.Forms.Button
    Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Button9 As System.Windows.Forms.Button
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents hostinklmavip As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
    Friend WithEvents HostDatum1 As System.Windows.Forms.TextBox
    Friend WithEvents Label29 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker7 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker9 As System.Windows.Forms.DateTimePicker
    Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
    Friend WithEvents lblhostdatum31 As System.Windows.Forms.Label
    Friend WithEvents ComboBox6 As System.Windows.Forms.ComboBox
    Friend WithEvents Label27 As System.Windows.Forms.Label
    Friend WithEvents lblhostdatum3 As System.Windows.Forms.Label
    Friend WithEvents HostDatum3 As System.Windows.Forms.TextBox
    Friend WithEvents HostTag3 As System.Windows.Forms.ComboBox
    Friend WithEvents HostDatum2 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker8 As System.Windows.Forms.DateTimePicker
    Friend WithEvents lblhostdatum2 As System.Windows.Forms.Label
    Friend WithEvents Label32 As System.Windows.Forms.Label
    Friend WithEvents Label33 As System.Windows.Forms.Label
    Friend WithEvents Label34 As System.Windows.Forms.Label
    Friend WithEvents Label35 As System.Windows.Forms.Label
    Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
    Friend WithEvents Label36 As System.Windows.Forms.Label
    Friend WithEvents Label37 As System.Windows.Forms.Label
    Friend WithEvents Label38 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker10 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker11 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker12 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents PnlDokumentDaten As System.Windows.Forms.Panel
    Friend WithEvents cinklalt As System.Windows.Forms.CheckBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents cbd6 As System.Windows.Forms.CheckBox
    Friend WithEvents cbd4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbd2 As System.Windows.Forms.CheckBox
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents Button17 As System.Windows.Forms.Button
    Friend WithEvents Button16 As System.Windows.Forms.Button
    Friend WithEvents Button15 As System.Windows.Forms.Button
    Friend WithEvents Button14 As System.Windows.Forms.Button
    Friend WithEvents Button13 As System.Windows.Forms.Button
    Friend WithEvents Button12 As System.Windows.Forms.Button
    Friend WithEvents cbrollend6 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend5 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend3 As System.Windows.Forms.CheckBox
    Friend WithEvents Label39 As System.Windows.Forms.Label
    Friend WithEvents Label40 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label23 As System.Windows.Forms.Label
    Friend WithEvents cbrollend2 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend1 As System.Windows.Forms.CheckBox
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents txtdatum1 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
    Friend WithEvents txtdatum2 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
    Friend WithEvents txtdatum3 As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum4 As System.Windows.Forms.TextBox
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents txtdatum5 As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum6 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker6 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker5 As System.Windows.Forms.DateTimePicker
    Friend WithEvents datumtext6 As System.Windows.Forms.Label
    Friend WithEvents datumtext5 As System.Windows.Forms.Label
    Friend WithEvents datumtext4 As System.Windows.Forms.Label
    Friend WithEvents datumtext3 As System.Windows.Forms.Label
    Friend WithEvents datumtext2 As System.Windows.Forms.Label
    Friend WithEvents datumtext1 As System.Windows.Forms.Label
    Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents PnlPartner As System.Windows.Forms.Panel
    Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents btnPartnersuche As System.Windows.Forms.Button
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Panel4 As System.Windows.Forms.Panel
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents LBSelectHost As System.Windows.Forms.ListBox
    Friend WithEvents Button11 As System.Windows.Forms.Button
    Friend WithEvents Label22 As System.Windows.Forms.Label
    Friend WithEvents lbselect As System.Windows.Forms.ListBox
    Friend WithEvents LBSort As System.Windows.Forms.ListBox
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents lbSortfields As System.Windows.Forms.ListBox
    Friend WithEvents PnlDokumentart As System.Windows.Forms.Panel
    Friend WithEvents TVDokart As System.Windows.Forms.TreeView
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
    Friend WithEvents TVHostDok As System.Windows.Forms.TreeView
    Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents cbteam As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents colbtn6 As System.Windows.Forms.Button
    Friend WithEvents colbtn5 As System.Windows.Forms.Button
    Friend WithEvents colbtn4 As System.Windows.Forms.Button
    Friend WithEvents colbtn3 As System.Windows.Forms.Button
    Friend WithEvents colbtn2 As System.Windows.Forms.Button
    Friend WithEvents colbtn1 As System.Windows.Forms.Button
    Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
    Friend WithEvents cb5 As System.Windows.Forms.CheckBox
    Friend WithEvents cb4 As System.Windows.Forms.CheckBox
    Friend WithEvents cb2 As System.Windows.Forms.CheckBox
    Friend WithEvents cb1 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents Label31 As System.Windows.Forms.Label
    Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox
    Friend WithEvents Label30 As System.Windows.Forms.Label
    Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents cbrollend8 As System.Windows.Forms.CheckBox
    Friend WithEvents cbrollend9 As System.Windows.Forms.CheckBox
    Friend WithEvents DatumHostText1 As System.Windows.Forms.Label
    Friend WithEvents DatumHostText2 As System.Windows.Forms.Label
    Friend WithEvents Button18 As System.Windows.Forms.Button
    Friend WithEvents Button19 As System.Windows.Forms.Button
    Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
    Friend WithEvents Button20 As System.Windows.Forms.Button
    Friend WithEvents btnini As System.Windows.Forms.ToolBarButton
    Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox
    Friend WithEvents cb3 As System.Windows.Forms.CheckBox
    Friend WithEvents cb3_1 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox13 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox14 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox15 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox16 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox17 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox18 As System.Windows.Forms.GroupBox
    Friend WithEvents TreeView2 As System.Windows.Forms.TreeView
    Friend WithEvents Panel5 As System.Windows.Forms.Panel
    Friend WithEvents GroupBox19 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
    Friend WithEvents Button21 As System.Windows.Forms.Button
    Friend WithEvents GroupBox20 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox11 As System.Windows.Forms.TextBox
    Friend WithEvents Button22 As System.Windows.Forms.Button
    Friend WithEvents GroupBox21 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox12 As System.Windows.Forms.TextBox
    Friend WithEvents Button23 As System.Windows.Forms.Button
    Friend WithEvents Label26 As System.Windows.Forms.Label
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox22 As System.Windows.Forms.GroupBox
    Friend WithEvents Label28 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker13 As System.Windows.Forms.DateTimePicker
    Friend WithEvents GroupBox23 As System.Windows.Forms.GroupBox
    Friend WithEvents Button24 As System.Windows.Forms.Button
    Friend WithEvents Button25 As System.Windows.Forms.Button
    Friend WithEvents Label41 As System.Windows.Forms.Label
    Friend WithEvents Label42 As System.Windows.Forms.Label
    Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox13 As System.Windows.Forms.TextBox
    Friend WithEvents Label43 As System.Windows.Forms.Label
    Friend WithEvents Label44 As System.Windows.Forms.Label
    Friend WithEvents Label45 As System.Windows.Forms.Label
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents Label46 As System.Windows.Forms.Label
    Friend WithEvents Label47 As System.Windows.Forms.Label
    Friend WithEvents TextBox14 As System.Windows.Forms.TextBox
    Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox15 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker14 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label48 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker15 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label49 As System.Windows.Forms.Label
    Friend WithEvents Label50 As System.Windows.Forms.Label
    Friend WithEvents Label51 As System.Windows.Forms.Label
    Friend WithEvents Label52 As System.Windows.Forms.Label
    Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox9 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox16 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox17 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox18 As System.Windows.Forms.TextBox
    Friend WithEvents Label53 As System.Windows.Forms.Label
    Friend WithEvents Label54 As System.Windows.Forms.Label
    Friend WithEvents Label55 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker16 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker17 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker18 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button26 As System.Windows.Forms.Button
    Friend WithEvents Button27 As System.Windows.Forms.Button
    Friend WithEvents Button28 As System.Windows.Forms.Button
    Friend WithEvents Panel6 As System.Windows.Forms.Panel
    Friend WithEvents GroupBox24 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox30 As System.Windows.Forms.GroupBox
    Friend WithEvents Button32 As System.Windows.Forms.Button
    Friend WithEvents Button33 As System.Windows.Forms.Button
    Friend WithEvents GroupBox31 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox32 As System.Windows.Forms.GroupBox
    Friend WithEvents TreeView4 As System.Windows.Forms.TreeView
    Friend WithEvents Panel9 As System.Windows.Forms.Panel
    Friend WithEvents GroupBox33 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox28 As System.Windows.Forms.TextBox
    Friend WithEvents Button37 As System.Windows.Forms.Button
    Friend WithEvents GroupBox34 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox29 As System.Windows.Forms.TextBox
    Friend WithEvents Button38 As System.Windows.Forms.Button
    Friend WithEvents GroupBox35 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox30 As System.Windows.Forms.TextBox
    Friend WithEvents Button39 As System.Windows.Forms.Button
    Friend WithEvents Label73 As System.Windows.Forms.Label
    Friend WithEvents CheckBox16 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox36 As System.Windows.Forms.GroupBox
    Friend WithEvents Label74 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker25 As System.Windows.Forms.DateTimePicker
    Friend WithEvents GroupBox37 As System.Windows.Forms.GroupBox
    Friend WithEvents Button40 As System.Windows.Forms.Button
    Friend WithEvents Button41 As System.Windows.Forms.Button
    Friend WithEvents Label75 As System.Windows.Forms.Label
    Friend WithEvents Label76 As System.Windows.Forms.Label
    Friend WithEvents CheckBox17 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox18 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox31 As System.Windows.Forms.TextBox
    Friend WithEvents Label77 As System.Windows.Forms.Label
    Friend WithEvents Label78 As System.Windows.Forms.Label
    Friend WithEvents Label79 As System.Windows.Forms.Label
    Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox
    Friend WithEvents Label80 As System.Windows.Forms.Label
    Friend WithEvents Label81 As System.Windows.Forms.Label
    Friend WithEvents TextBox32 As System.Windows.Forms.TextBox
    Friend WithEvents ComboBox7 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox33 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker26 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label82 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker27 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label83 As System.Windows.Forms.Label
    Friend WithEvents Label84 As System.Windows.Forms.Label
    Friend WithEvents Label85 As System.Windows.Forms.Label
    Friend WithEvents Label86 As System.Windows.Forms.Label
    Friend WithEvents CheckBox19 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox20 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox21 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox34 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox35 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox36 As System.Windows.Forms.TextBox
    Friend WithEvents Label87 As System.Windows.Forms.Label
    Friend WithEvents Label88 As System.Windows.Forms.Label
    Friend WithEvents Label89 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker28 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker29 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker30 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button42 As System.Windows.Forms.Button
    Friend WithEvents Button43 As System.Windows.Forms.Button
    Friend WithEvents Button44 As System.Windows.Forms.Button
    Friend WithEvents Panel10 As System.Windows.Forms.Panel
    Friend WithEvents C1TrueDBGrid2 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents Button45 As System.Windows.Forms.Button
    Friend WithEvents Label90 As System.Windows.Forms.Label
    Friend WithEvents TextBox37 As System.Windows.Forms.TextBox
    Friend WithEvents Label91 As System.Windows.Forms.Label
    Friend WithEvents TextBox38 As System.Windows.Forms.TextBox
    Friend WithEvents Label92 As System.Windows.Forms.Label
    Friend WithEvents TextBox39 As System.Windows.Forms.TextBox
    Friend WithEvents C1TrueDBGrid3 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents Button46 As System.Windows.Forms.Button
    Friend WithEvents Label93 As System.Windows.Forms.Label
    Friend WithEvents TextBox40 As System.Windows.Forms.TextBox
    Friend WithEvents Label94 As System.Windows.Forms.Label
    Friend WithEvents TextBox41 As System.Windows.Forms.TextBox
    Friend WithEvents Label95 As System.Windows.Forms.Label
    Friend WithEvents TextBox42 As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum3zv As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum4zv As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum2zv As System.Windows.Forms.TextBox
    Friend WithEvents cbzvrollend1 As System.Windows.Forms.CheckBox
    Friend WithEvents Label56 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker19 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label57 As System.Windows.Forms.Label
    Friend WithEvents Label58 As System.Windows.Forms.Label
    Friend WithEvents cbzvrollend4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbzvrollend2 As System.Windows.Forms.CheckBox
    Friend WithEvents Label59 As System.Windows.Forms.Label
    Friend WithEvents txtdatum1zv As System.Windows.Forms.TextBox
    Friend WithEvents Label60 As System.Windows.Forms.Label
    Friend WithEvents cbzvrollend3 As System.Windows.Forms.CheckBox
    Friend WithEvents Label61 As System.Windows.Forms.Label
    Friend WithEvents textdatum1zv As System.Windows.Forms.Label
    Friend WithEvents textdatum2zv As System.Windows.Forms.Label
    Friend WithEvents textdatum3zv As System.Windows.Forms.Label
    Friend WithEvents textdatum4zv As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker20 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker21 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker22 As System.Windows.Forms.DateTimePicker
    Friend WithEvents GroupBox25 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox26 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox27 As System.Windows.Forms.GroupBox
    Friend WithEvents TreeView3 As System.Windows.Forms.TreeView
    Friend WithEvents Panel7 As System.Windows.Forms.Panel
    Friend WithEvents GroupBox28 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox19 As System.Windows.Forms.TextBox
    Friend WithEvents Button29 As System.Windows.Forms.Button
    Friend WithEvents GroupBox29 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox20 As System.Windows.Forms.TextBox
    Friend WithEvents Button30 As System.Windows.Forms.Button
    Friend WithEvents GroupBox38 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox21 As System.Windows.Forms.TextBox
    Friend WithEvents Button31 As System.Windows.Forms.Button
    Friend WithEvents Label62 As System.Windows.Forms.Label
    Friend WithEvents CheckBox10 As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox39 As System.Windows.Forms.GroupBox
    Friend WithEvents Label63 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker23 As System.Windows.Forms.DateTimePicker
    Friend WithEvents GroupBox40 As System.Windows.Forms.GroupBox
    Friend WithEvents Button34 As System.Windows.Forms.Button
    Friend WithEvents Button35 As System.Windows.Forms.Button
    Friend WithEvents Label64 As System.Windows.Forms.Label
    Friend WithEvents Label65 As System.Windows.Forms.Label
    Friend WithEvents CheckBox11 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox12 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox22 As System.Windows.Forms.TextBox
    Friend WithEvents Label66 As System.Windows.Forms.Label
    Friend WithEvents Label67 As System.Windows.Forms.Label
    Friend WithEvents Label68 As System.Windows.Forms.Label
    Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
    Friend WithEvents Label69 As System.Windows.Forms.Label
    Friend WithEvents Label70 As System.Windows.Forms.Label
    Friend WithEvents TextBox23 As System.Windows.Forms.TextBox
    Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox24 As System.Windows.Forms.TextBox
    Friend WithEvents DateTimePicker24 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label71 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker31 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label72 As System.Windows.Forms.Label
    Friend WithEvents Label96 As System.Windows.Forms.Label
    Friend WithEvents Label97 As System.Windows.Forms.Label
    Friend WithEvents Label98 As System.Windows.Forms.Label
    Friend WithEvents CheckBox13 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox14 As System.Windows.Forms.CheckBox
    Friend WithEvents CheckBox15 As System.Windows.Forms.CheckBox
    Friend WithEvents TextBox25 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox26 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox27 As System.Windows.Forms.TextBox
    Friend WithEvents Label99 As System.Windows.Forms.Label
    Friend WithEvents Label100 As System.Windows.Forms.Label
    Friend WithEvents Label101 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker32 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker33 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker34 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button36 As System.Windows.Forms.Button
    Friend WithEvents Button47 As System.Windows.Forms.Button
    Friend WithEvents Button48 As System.Windows.Forms.Button
    Friend WithEvents Panel8 As System.Windows.Forms.Panel
    Friend WithEvents C1TrueDBGrid4 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents Button49 As System.Windows.Forms.Button
    Friend WithEvents Label102 As System.Windows.Forms.Label
    Friend WithEvents TextBox43 As System.Windows.Forms.TextBox
    Friend WithEvents Label103 As System.Windows.Forms.Label
    Friend WithEvents TextBox44 As System.Windows.Forms.TextBox
    Friend WithEvents Label104 As System.Windows.Forms.Label
    Friend WithEvents TextBox45 As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox41 As System.Windows.Forms.GroupBox
    Friend WithEvents Button50 As System.Windows.Forms.Button
    Friend WithEvents Button51 As System.Windows.Forms.Button
    Friend WithEvents txtdatum4uvm As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum3uvm As System.Windows.Forms.TextBox
    Friend WithEvents txtdatum2uvm As System.Windows.Forms.TextBox
    Friend WithEvents cbuvmrollend1 As System.Windows.Forms.CheckBox
    Friend WithEvents Label105 As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker35 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Label106 As System.Windows.Forms.Label
    Friend WithEvents Label107 As System.Windows.Forms.Label
    Friend WithEvents cbuvmrollend4 As System.Windows.Forms.CheckBox
    Friend WithEvents cbuvmrollend2 As System.Windows.Forms.CheckBox
    Friend WithEvents Label108 As System.Windows.Forms.Label
    Friend WithEvents txtdatum1uvm As System.Windows.Forms.TextBox
    Friend WithEvents Label109 As System.Windows.Forms.Label
    Friend WithEvents cbuvmrollend3 As System.Windows.Forms.CheckBox
    Friend WithEvents Label110 As System.Windows.Forms.Label
    Friend WithEvents textdatum1uvm As System.Windows.Forms.Label
    Friend WithEvents textdatum2uvm As System.Windows.Forms.Label
    Friend WithEvents textdatum3uvm As System.Windows.Forms.Label
    Friend WithEvents textdatum4uvm As System.Windows.Forms.Label
    Friend WithEvents DateTimePicker36 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker37 As System.Windows.Forms.DateTimePicker
    Friend WithEvents DateTimePicker38 As System.Windows.Forms.DateTimePicker
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmProfilinfo))
        Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines4 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines5 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.btnClose = New System.Windows.Forms.ToolBarButton()
        Me.btnOpen = New System.Windows.Forms.ToolBarButton()
        Me.btnSave = New System.Windows.Forms.ToolBarButton()
        Me.btnini = New System.Windows.Forms.ToolBarButton()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.MnuListe = New System.Windows.Forms.ContextMenu()
        Me.MenuItem12 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.MenuItem7 = New System.Windows.Forms.MenuItem()
        Me.MenuItem9 = New System.Windows.Forms.MenuItem()
        Me.MenuItem11 = New System.Windows.Forms.MenuItem()
        Me.MenuItem13 = New System.Windows.Forms.MenuItem()
        Me.MenuItem8 = New System.Windows.Forms.MenuItem()
        Me.MenuItem10 = New System.Windows.Forms.MenuItem()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.Profile = New System.Windows.Forms.TreeView()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Label25 = New System.Windows.Forms.Label()
        Me.ComboBox10 = New System.Windows.Forms.ComboBox()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.ComboBox9 = New System.Windows.Forms.ComboBox()
        Me.ctmenu1 = New System.Windows.Forms.ContextMenu()
        Me.MnuDel = New System.Windows.Forms.MenuItem()
        Me.MenuItem14 = New System.Windows.Forms.MenuItem()
        Me.CTMenuErsteller = New System.Windows.Forms.ContextMenu()
        Me.MenuItem15 = New System.Windows.Forms.MenuItem()
        Me.MenuItem16 = New System.Windows.Forms.MenuItem()
        Me.CTMenuVerantwortlicher = New System.Windows.Forms.ContextMenu()
        Me.MenuItem20 = New System.Windows.Forms.MenuItem()
        Me.CTMenuMutierer = New System.Windows.Forms.ContextMenu()
        Me.MenuItem24 = New System.Windows.Forms.MenuItem()
        Me.MenuItem25 = New System.Windows.Forms.MenuItem()
        Me.MenuItem26 = New System.Windows.Forms.MenuItem()
        Me.MenuItem27 = New System.Windows.Forms.MenuItem()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
        Me.DataSet1 = New System.Data.DataSet()
        Me.Splitter1 = New System.Windows.Forms.Splitter()
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem17 = New System.Windows.Forms.MenuItem()
        Me.MenuItem18 = New System.Windows.Forms.MenuItem()
        Me.MenuItem21 = New System.Windows.Forms.MenuItem()
        Me.MenuItem22 = New System.Windows.Forms.MenuItem()
        Me.MenuItem19 = New System.Windows.Forms.MenuItem()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.MnuSelectDokumentart = New System.Windows.Forms.MenuItem()
        Me.MnuDeleteDokumentart = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
        Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components)
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.C1TrueDBGrid3 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.Button46 = New System.Windows.Forms.Button()
        Me.Label93 = New System.Windows.Forms.Label()
        Me.TextBox40 = New System.Windows.Forms.TextBox()
        Me.Label94 = New System.Windows.Forms.Label()
        Me.TextBox41 = New System.Windows.Forms.TextBox()
        Me.Label95 = New System.Windows.Forms.Label()
        Me.TextBox42 = New System.Windows.Forms.TextBox()
        Me.TreeView1 = New System.Windows.Forms.TreeView()
        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
        Me.GroupBox15 = New System.Windows.Forms.GroupBox()
        Me.PnlDokumentart = New System.Windows.Forms.Panel()
        Me.TVDokart = New System.Windows.Forms.TreeView()
        Me.GroupBox16 = New System.Windows.Forms.GroupBox()
        Me.TVHostDok = New System.Windows.Forms.TreeView()
        Me.PnlDokumentDaten = New System.Windows.Forms.Panel()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.cbd6 = New System.Windows.Forms.CheckBox()
        Me.cbd4 = New System.Windows.Forms.CheckBox()
        Me.cbd2 = New System.Windows.Forms.CheckBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.Button17 = New System.Windows.Forms.Button()
        Me.Button16 = New System.Windows.Forms.Button()
        Me.Button15 = New System.Windows.Forms.Button()
        Me.Button14 = New System.Windows.Forms.Button()
        Me.Button13 = New System.Windows.Forms.Button()
        Me.Button12 = New System.Windows.Forms.Button()
        Me.cbrollend6 = New System.Windows.Forms.CheckBox()
        Me.cbrollend5 = New System.Windows.Forms.CheckBox()
        Me.cbrollend4 = New System.Windows.Forms.CheckBox()
        Me.cbrollend3 = New System.Windows.Forms.CheckBox()
        Me.Label39 = New System.Windows.Forms.Label()
        Me.Label40 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.Label23 = New System.Windows.Forms.Label()
        Me.cbrollend2 = New System.Windows.Forms.CheckBox()
        Me.cbrollend1 = New System.Windows.Forms.CheckBox()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.txtdatum1 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
        Me.txtdatum2 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
        Me.txtdatum3 = New System.Windows.Forms.TextBox()
        Me.txtdatum4 = New System.Windows.Forms.TextBox()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.txtdatum5 = New System.Windows.Forms.TextBox()
        Me.txtdatum6 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker6 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker()
        Me.datumtext6 = New System.Windows.Forms.Label()
        Me.datumtext5 = New System.Windows.Forms.Label()
        Me.datumtext4 = New System.Windows.Forms.Label()
        Me.datumtext3 = New System.Windows.Forms.Label()
        Me.datumtext2 = New System.Windows.Forms.Label()
        Me.datumtext1 = New System.Windows.Forms.Label()
        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
        Me.cinklalt = New System.Windows.Forms.CheckBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.pnlhostdiv = New System.Windows.Forms.Panel()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.TextBox6 = New System.Windows.Forms.TextBox()
        Me.Button20 = New System.Windows.Forms.Button()
        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
        Me.TextBox5 = New System.Windows.Forms.TextBox()
        Me.Button10 = New System.Windows.Forms.Button()
        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.hostinklmavip = New System.Windows.Forms.CheckBox()
        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
        Me.Label29 = New System.Windows.Forms.Label()
        Me.DateTimePicker7 = New System.Windows.Forms.DateTimePicker()
        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
        Me.Button18 = New System.Windows.Forms.Button()
        Me.Button19 = New System.Windows.Forms.Button()
        Me.DatumHostText2 = New System.Windows.Forms.Label()
        Me.DatumHostText1 = New System.Windows.Forms.Label()
        Me.cbrollend9 = New System.Windows.Forms.CheckBox()
        Me.cbrollend8 = New System.Windows.Forms.CheckBox()
        Me.HostDatum1 = New System.Windows.Forms.TextBox()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.lblhostdatum31 = New System.Windows.Forms.Label()
        Me.ComboBox6 = New System.Windows.Forms.ComboBox()
        Me.Label27 = New System.Windows.Forms.Label()
        Me.lblhostdatum3 = New System.Windows.Forms.Label()
        Me.HostDatum3 = New System.Windows.Forms.TextBox()
        Me.HostTag3 = New System.Windows.Forms.ComboBox()
        Me.HostDatum2 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker8 = New System.Windows.Forms.DateTimePicker()
        Me.lblhostdatum2 = New System.Windows.Forms.Label()
        Me.DateTimePicker9 = New System.Windows.Forms.DateTimePicker()
        Me.Label32 = New System.Windows.Forms.Label()
        Me.Label33 = New System.Windows.Forms.Label()
        Me.Label34 = New System.Windows.Forms.Label()
        Me.Label35 = New System.Windows.Forms.Label()
        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
        Me.TextBox7 = New System.Windows.Forms.TextBox()
        Me.TextBox8 = New System.Windows.Forms.TextBox()
        Me.TextBox9 = New System.Windows.Forms.TextBox()
        Me.Label36 = New System.Windows.Forms.Label()
        Me.Label37 = New System.Windows.Forms.Label()
        Me.Label38 = New System.Windows.Forms.Label()
        Me.DateTimePicker10 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker11 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker12 = New System.Windows.Forms.DateTimePicker()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Button7 = New System.Windows.Forms.Button()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.GroupBox24 = New System.Windows.Forms.GroupBox()
        Me.GroupBox31 = New System.Windows.Forms.GroupBox()
        Me.GroupBox32 = New System.Windows.Forms.GroupBox()
        Me.TreeView4 = New System.Windows.Forms.TreeView()
        Me.Panel9 = New System.Windows.Forms.Panel()
        Me.GroupBox33 = New System.Windows.Forms.GroupBox()
        Me.TextBox28 = New System.Windows.Forms.TextBox()
        Me.Button37 = New System.Windows.Forms.Button()
        Me.GroupBox34 = New System.Windows.Forms.GroupBox()
        Me.TextBox29 = New System.Windows.Forms.TextBox()
        Me.Button38 = New System.Windows.Forms.Button()
        Me.GroupBox35 = New System.Windows.Forms.GroupBox()
        Me.TextBox30 = New System.Windows.Forms.TextBox()
        Me.Button39 = New System.Windows.Forms.Button()
        Me.Label73 = New System.Windows.Forms.Label()
        Me.CheckBox16 = New System.Windows.Forms.CheckBox()
        Me.GroupBox36 = New System.Windows.Forms.GroupBox()
        Me.Label74 = New System.Windows.Forms.Label()
        Me.DateTimePicker25 = New System.Windows.Forms.DateTimePicker()
        Me.GroupBox37 = New System.Windows.Forms.GroupBox()
        Me.Button40 = New System.Windows.Forms.Button()
        Me.Button41 = New System.Windows.Forms.Button()
        Me.Label75 = New System.Windows.Forms.Label()
        Me.Label76 = New System.Windows.Forms.Label()
        Me.CheckBox17 = New System.Windows.Forms.CheckBox()
        Me.CheckBox18 = New System.Windows.Forms.CheckBox()
        Me.TextBox31 = New System.Windows.Forms.TextBox()
        Me.Label77 = New System.Windows.Forms.Label()
        Me.Label78 = New System.Windows.Forms.Label()
        Me.Label79 = New System.Windows.Forms.Label()
        Me.ComboBox5 = New System.Windows.Forms.ComboBox()
        Me.Label80 = New System.Windows.Forms.Label()
        Me.Label81 = New System.Windows.Forms.Label()
        Me.TextBox32 = New System.Windows.Forms.TextBox()
        Me.ComboBox7 = New System.Windows.Forms.ComboBox()
        Me.TextBox33 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker26 = New System.Windows.Forms.DateTimePicker()
        Me.Label82 = New System.Windows.Forms.Label()
        Me.DateTimePicker27 = New System.Windows.Forms.DateTimePicker()
        Me.Label83 = New System.Windows.Forms.Label()
        Me.Label84 = New System.Windows.Forms.Label()
        Me.Label85 = New System.Windows.Forms.Label()
        Me.Label86 = New System.Windows.Forms.Label()
        Me.CheckBox19 = New System.Windows.Forms.CheckBox()
        Me.CheckBox20 = New System.Windows.Forms.CheckBox()
        Me.CheckBox21 = New System.Windows.Forms.CheckBox()
        Me.TextBox34 = New System.Windows.Forms.TextBox()
        Me.TextBox35 = New System.Windows.Forms.TextBox()
        Me.TextBox36 = New System.Windows.Forms.TextBox()
        Me.Label87 = New System.Windows.Forms.Label()
        Me.Label88 = New System.Windows.Forms.Label()
        Me.Label89 = New System.Windows.Forms.Label()
        Me.DateTimePicker28 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker29 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker30 = New System.Windows.Forms.DateTimePicker()
        Me.Button42 = New System.Windows.Forms.Button()
        Me.Button43 = New System.Windows.Forms.Button()
        Me.Button44 = New System.Windows.Forms.Button()
        Me.Panel10 = New System.Windows.Forms.Panel()
        Me.C1TrueDBGrid2 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.Button45 = New System.Windows.Forms.Button()
        Me.Label90 = New System.Windows.Forms.Label()
        Me.TextBox37 = New System.Windows.Forms.TextBox()
        Me.Label91 = New System.Windows.Forms.Label()
        Me.TextBox38 = New System.Windows.Forms.TextBox()
        Me.Label92 = New System.Windows.Forms.Label()
        Me.TextBox39 = New System.Windows.Forms.TextBox()
        Me.GroupBox30 = New System.Windows.Forms.GroupBox()
        Me.txtdatum3zv = New System.Windows.Forms.TextBox()
        Me.txtdatum4zv = New System.Windows.Forms.TextBox()
        Me.txtdatum2zv = New System.Windows.Forms.TextBox()
        Me.cbzvrollend1 = New System.Windows.Forms.CheckBox()
        Me.Label56 = New System.Windows.Forms.Label()
        Me.DateTimePicker19 = New System.Windows.Forms.DateTimePicker()
        Me.Label57 = New System.Windows.Forms.Label()
        Me.Label58 = New System.Windows.Forms.Label()
        Me.cbzvrollend4 = New System.Windows.Forms.CheckBox()
        Me.cbzvrollend2 = New System.Windows.Forms.CheckBox()
        Me.Label59 = New System.Windows.Forms.Label()
        Me.txtdatum1zv = New System.Windows.Forms.TextBox()
        Me.Label60 = New System.Windows.Forms.Label()
        Me.cbzvrollend3 = New System.Windows.Forms.CheckBox()
        Me.Label61 = New System.Windows.Forms.Label()
        Me.textdatum1zv = New System.Windows.Forms.Label()
        Me.textdatum2zv = New System.Windows.Forms.Label()
        Me.textdatum3zv = New System.Windows.Forms.Label()
        Me.textdatum4zv = New System.Windows.Forms.Label()
        Me.DateTimePicker20 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker21 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker22 = New System.Windows.Forms.DateTimePicker()
        Me.Button32 = New System.Windows.Forms.Button()
        Me.Button33 = New System.Windows.Forms.Button()
        Me.GroupBox25 = New System.Windows.Forms.GroupBox()
        Me.GroupBox26 = New System.Windows.Forms.GroupBox()
        Me.GroupBox27 = New System.Windows.Forms.GroupBox()
        Me.TreeView3 = New System.Windows.Forms.TreeView()
        Me.Panel7 = New System.Windows.Forms.Panel()
        Me.GroupBox28 = New System.Windows.Forms.GroupBox()
        Me.TextBox19 = New System.Windows.Forms.TextBox()
        Me.Button29 = New System.Windows.Forms.Button()
        Me.GroupBox29 = New System.Windows.Forms.GroupBox()
        Me.TextBox20 = New System.Windows.Forms.TextBox()
        Me.Button30 = New System.Windows.Forms.Button()
        Me.GroupBox38 = New System.Windows.Forms.GroupBox()
        Me.TextBox21 = New System.Windows.Forms.TextBox()
        Me.Button31 = New System.Windows.Forms.Button()
        Me.Label62 = New System.Windows.Forms.Label()
        Me.CheckBox10 = New System.Windows.Forms.CheckBox()
        Me.GroupBox39 = New System.Windows.Forms.GroupBox()
        Me.Label63 = New System.Windows.Forms.Label()
        Me.DateTimePicker23 = New System.Windows.Forms.DateTimePicker()
        Me.GroupBox40 = New System.Windows.Forms.GroupBox()
        Me.Button34 = New System.Windows.Forms.Button()
        Me.Button35 = New System.Windows.Forms.Button()
        Me.Label64 = New System.Windows.Forms.Label()
        Me.Label65 = New System.Windows.Forms.Label()
        Me.CheckBox11 = New System.Windows.Forms.CheckBox()
        Me.CheckBox12 = New System.Windows.Forms.CheckBox()
        Me.TextBox22 = New System.Windows.Forms.TextBox()
        Me.Label66 = New System.Windows.Forms.Label()
        Me.Label67 = New System.Windows.Forms.Label()
        Me.Label68 = New System.Windows.Forms.Label()
        Me.ComboBox3 = New System.Windows.Forms.ComboBox()
        Me.Label69 = New System.Windows.Forms.Label()
        Me.Label70 = New System.Windows.Forms.Label()
        Me.TextBox23 = New System.Windows.Forms.TextBox()
        Me.ComboBox4 = New System.Windows.Forms.ComboBox()
        Me.TextBox24 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker24 = New System.Windows.Forms.DateTimePicker()
        Me.Label71 = New System.Windows.Forms.Label()
        Me.DateTimePicker31 = New System.Windows.Forms.DateTimePicker()
        Me.Label72 = New System.Windows.Forms.Label()
        Me.Label96 = New System.Windows.Forms.Label()
        Me.Label97 = New System.Windows.Forms.Label()
        Me.Label98 = New System.Windows.Forms.Label()
        Me.CheckBox13 = New System.Windows.Forms.CheckBox()
        Me.CheckBox14 = New System.Windows.Forms.CheckBox()
        Me.CheckBox15 = New System.Windows.Forms.CheckBox()
        Me.TextBox25 = New System.Windows.Forms.TextBox()
        Me.TextBox26 = New System.Windows.Forms.TextBox()
        Me.TextBox27 = New System.Windows.Forms.TextBox()
        Me.Label99 = New System.Windows.Forms.Label()
        Me.Label100 = New System.Windows.Forms.Label()
        Me.Label101 = New System.Windows.Forms.Label()
        Me.DateTimePicker32 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker33 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker34 = New System.Windows.Forms.DateTimePicker()
        Me.Button36 = New System.Windows.Forms.Button()
        Me.Button47 = New System.Windows.Forms.Button()
        Me.Button48 = New System.Windows.Forms.Button()
        Me.Panel8 = New System.Windows.Forms.Panel()
        Me.C1TrueDBGrid4 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.Button49 = New System.Windows.Forms.Button()
        Me.Label102 = New System.Windows.Forms.Label()
        Me.TextBox43 = New System.Windows.Forms.TextBox()
        Me.Label103 = New System.Windows.Forms.Label()
        Me.TextBox44 = New System.Windows.Forms.TextBox()
        Me.Label104 = New System.Windows.Forms.Label()
        Me.TextBox45 = New System.Windows.Forms.TextBox()
        Me.GroupBox41 = New System.Windows.Forms.GroupBox()
        Me.txtdatum4uvm = New System.Windows.Forms.TextBox()
        Me.txtdatum3uvm = New System.Windows.Forms.TextBox()
        Me.txtdatum2uvm = New System.Windows.Forms.TextBox()
        Me.cbuvmrollend1 = New System.Windows.Forms.CheckBox()
        Me.Label105 = New System.Windows.Forms.Label()
        Me.DateTimePicker35 = New System.Windows.Forms.DateTimePicker()
        Me.Label106 = New System.Windows.Forms.Label()
        Me.Label107 = New System.Windows.Forms.Label()
        Me.cbuvmrollend4 = New System.Windows.Forms.CheckBox()
        Me.cbuvmrollend2 = New System.Windows.Forms.CheckBox()
        Me.Label108 = New System.Windows.Forms.Label()
        Me.txtdatum1uvm = New System.Windows.Forms.TextBox()
        Me.Label109 = New System.Windows.Forms.Label()
        Me.cbuvmrollend3 = New System.Windows.Forms.CheckBox()
        Me.Label110 = New System.Windows.Forms.Label()
        Me.textdatum1uvm = New System.Windows.Forms.Label()
        Me.textdatum2uvm = New System.Windows.Forms.Label()
        Me.textdatum3uvm = New System.Windows.Forms.Label()
        Me.textdatum4uvm = New System.Windows.Forms.Label()
        Me.DateTimePicker36 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker37 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker38 = New System.Windows.Forms.DateTimePicker()
        Me.Button50 = New System.Windows.Forms.Button()
        Me.Button51 = New System.Windows.Forms.Button()
        Me.GroupBox14 = New System.Windows.Forms.GroupBox()
        Me.PnlPartner = New System.Windows.Forms.Panel()
        Me.GroupBox17 = New System.Windows.Forms.GroupBox()
        Me.GroupBox18 = New System.Windows.Forms.GroupBox()
        Me.TreeView2 = New System.Windows.Forms.TreeView()
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.GroupBox19 = New System.Windows.Forms.GroupBox()
        Me.TextBox10 = New System.Windows.Forms.TextBox()
        Me.Button21 = New System.Windows.Forms.Button()
        Me.GroupBox20 = New System.Windows.Forms.GroupBox()
        Me.TextBox11 = New System.Windows.Forms.TextBox()
        Me.Button22 = New System.Windows.Forms.Button()
        Me.GroupBox21 = New System.Windows.Forms.GroupBox()
        Me.TextBox12 = New System.Windows.Forms.TextBox()
        Me.Button23 = New System.Windows.Forms.Button()
        Me.Label26 = New System.Windows.Forms.Label()
        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
        Me.GroupBox22 = New System.Windows.Forms.GroupBox()
        Me.Label28 = New System.Windows.Forms.Label()
        Me.DateTimePicker13 = New System.Windows.Forms.DateTimePicker()
        Me.GroupBox23 = New System.Windows.Forms.GroupBox()
        Me.Button24 = New System.Windows.Forms.Button()
        Me.Button25 = New System.Windows.Forms.Button()
        Me.Label41 = New System.Windows.Forms.Label()
        Me.Label42 = New System.Windows.Forms.Label()
        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
        Me.TextBox13 = New System.Windows.Forms.TextBox()
        Me.Label43 = New System.Windows.Forms.Label()
        Me.Label44 = New System.Windows.Forms.Label()
        Me.Label45 = New System.Windows.Forms.Label()
        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
        Me.Label46 = New System.Windows.Forms.Label()
        Me.Label47 = New System.Windows.Forms.Label()
        Me.TextBox14 = New System.Windows.Forms.TextBox()
        Me.ComboBox2 = New System.Windows.Forms.ComboBox()
        Me.TextBox15 = New System.Windows.Forms.TextBox()
        Me.DateTimePicker14 = New System.Windows.Forms.DateTimePicker()
        Me.Label48 = New System.Windows.Forms.Label()
        Me.DateTimePicker15 = New System.Windows.Forms.DateTimePicker()
        Me.Label49 = New System.Windows.Forms.Label()
        Me.Label50 = New System.Windows.Forms.Label()
        Me.Label51 = New System.Windows.Forms.Label()
        Me.Label52 = New System.Windows.Forms.Label()
        Me.CheckBox7 = New System.Windows.Forms.CheckBox()
        Me.CheckBox8 = New System.Windows.Forms.CheckBox()
        Me.CheckBox9 = New System.Windows.Forms.CheckBox()
        Me.TextBox16 = New System.Windows.Forms.TextBox()
        Me.TextBox17 = New System.Windows.Forms.TextBox()
        Me.TextBox18 = New System.Windows.Forms.TextBox()
        Me.Label53 = New System.Windows.Forms.Label()
        Me.Label54 = New System.Windows.Forms.Label()
        Me.Label55 = New System.Windows.Forms.Label()
        Me.DateTimePicker16 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker17 = New System.Windows.Forms.DateTimePicker()
        Me.DateTimePicker18 = New System.Windows.Forms.DateTimePicker()
        Me.Button26 = New System.Windows.Forms.Button()
        Me.Button27 = New System.Windows.Forms.Button()
        Me.Button28 = New System.Windows.Forms.Button()
        Me.Panel6 = New System.Windows.Forms.Panel()
        Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.btnPartnersuche = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.LBSelectHost = New System.Windows.Forms.ListBox()
        Me.Button11 = New System.Windows.Forms.Button()
        Me.Label22 = New System.Windows.Forms.Label()
        Me.lbselect = New System.Windows.Forms.ListBox()
        Me.LBSort = New System.Windows.Forms.ListBox()
        Me.Label21 = New System.Windows.Forms.Label()
        Me.lbSortfields = New System.Windows.Forms.ListBox()
        Me.GroupBox12 = New System.Windows.Forms.GroupBox()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.cbteam = New System.Windows.Forms.ComboBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.colbtn6 = New System.Windows.Forms.Button()
        Me.colbtn5 = New System.Windows.Forms.Button()
        Me.colbtn4 = New System.Windows.Forms.Button()
        Me.colbtn3 = New System.Windows.Forms.Button()
        Me.colbtn2 = New System.Windows.Forms.Button()
        Me.colbtn1 = New System.Windows.Forms.Button()
        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
        Me.cb3_1 = New System.Windows.Forms.CheckBox()
        Me.cb5 = New System.Windows.Forms.CheckBox()
        Me.cb4 = New System.Windows.Forms.CheckBox()
        Me.cb3 = New System.Windows.Forms.CheckBox()
        Me.cb2 = New System.Windows.Forms.CheckBox()
        Me.cb1 = New System.Windows.Forms.CheckBox()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.Label31 = New System.Windows.Forms.Label()
        Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox()
        Me.Label30 = New System.Windows.Forms.Label()
        Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.Panel2.SuspendLayout()
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage1.SuspendLayout()
        CType(Me.C1TrueDBGrid3, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox13.SuspendLayout()
        Me.GroupBox15.SuspendLayout()
        Me.PnlDokumentart.SuspendLayout()
        Me.GroupBox16.SuspendLayout()
        Me.PnlDokumentDaten.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox10.SuspendLayout()
        Me.pnlhostdiv.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox11.SuspendLayout()
        Me.GroupBox8.SuspendLayout()
        Me.GroupBox6.SuspendLayout()
        Me.GroupBox24.SuspendLayout()
        Me.GroupBox31.SuspendLayout()
        Me.GroupBox32.SuspendLayout()
        Me.Panel9.SuspendLayout()
        Me.GroupBox33.SuspendLayout()
        Me.GroupBox34.SuspendLayout()
        Me.GroupBox35.SuspendLayout()
        Me.GroupBox37.SuspendLayout()
        Me.Panel10.SuspendLayout()
        CType(Me.C1TrueDBGrid2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox30.SuspendLayout()
        Me.GroupBox25.SuspendLayout()
        Me.GroupBox26.SuspendLayout()
        Me.GroupBox27.SuspendLayout()
        Me.Panel7.SuspendLayout()
        Me.GroupBox28.SuspendLayout()
        Me.GroupBox29.SuspendLayout()
        Me.GroupBox38.SuspendLayout()
        Me.GroupBox40.SuspendLayout()
        Me.Panel8.SuspendLayout()
        CType(Me.C1TrueDBGrid4, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox41.SuspendLayout()
        Me.GroupBox14.SuspendLayout()
        Me.GroupBox17.SuspendLayout()
        Me.GroupBox18.SuspendLayout()
        Me.Panel5.SuspendLayout()
        Me.GroupBox19.SuspendLayout()
        Me.GroupBox20.SuspendLayout()
        Me.GroupBox21.SuspendLayout()
        Me.GroupBox23.SuspendLayout()
        Me.Panel6.SuspendLayout()
        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel4.SuspendLayout()
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage4.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox9.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.TabControl1.SuspendLayout()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem5})
        Me.MenuItem1.Text = "&Datei"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 0
        Me.MenuItem5.Text = "&Schliessen"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnClose, Me.btnOpen, Me.btnSave, Me.btnini})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(682, 25)
        Me.ToolBar1.TabIndex = 0
        '
        'btnClose
        '
        Me.btnClose.ImageIndex = 0
        Me.btnClose.ToolTipText = "Fenster schliessen"
        '
        'btnOpen
        '
        Me.btnOpen.ImageIndex = 7
        Me.btnOpen.Visible = False
        '
        'btnSave
        '
        Me.btnSave.ImageIndex = 1
        Me.btnSave.Visible = False
        '
        'btnini
        '
        Me.btnini.ImageIndex = 12
        Me.btnini.ToolTipText = "Profil initialisieren"
        Me.btnini.Visible = False
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'Panel1
        '
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 25)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(682, 8)
        Me.Panel1.TabIndex = 4
        '
        'MnuListe
        '
        Me.MnuListe.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem12, Me.MenuItem6, Me.MenuItem7, Me.MenuItem9, Me.MenuItem11, Me.MenuItem13, Me.MenuItem8, Me.MenuItem10})
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 0
        Me.MenuItem12.Text = "Übernehmen"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 1
        Me.MenuItem6.Text = "Auswählen"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 2
        Me.MenuItem7.Text = "Als Standard"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 3
        Me.MenuItem9.Text = "-"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 4
        Me.MenuItem11.Text = "Neus Profil"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 5
        Me.MenuItem13.Text = "Profil kopieren"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 6
        Me.MenuItem8.Text = "Umbenennen"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 7
        Me.MenuItem10.Text = "Löschen"
        '
        'Panel2
        '
        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Profile})
        Me.Panel2.Location = New System.Drawing.Point(0, 33)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(176, 544)
        Me.Panel2.TabIndex = 11
        '
        'Profile
        '
        Me.Profile.ContextMenu = Me.MnuListe
        Me.Profile.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Profile.FullRowSelect = True
        Me.Profile.ImageIndex = -1
        Me.Profile.Name = "Profile"
        Me.Profile.SelectedImageIndex = -1
        Me.Profile.ShowLines = False
        Me.Profile.ShowPlusMinus = False
        Me.Profile.Size = New System.Drawing.Size(174, 542)
        Me.Profile.Sorted = True
        Me.Profile.TabIndex = 0
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(200, 552)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(112, 24)
        Me.Button4.TabIndex = 14
        Me.Button4.Text = "Übernehmen"
        '
        'Label25
        '
        Me.Label25.Location = New System.Drawing.Point(16, 64)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(48, 23)
        Me.Label25.TabIndex = 3
        '
        'ComboBox10
        '
        Me.ComboBox10.Location = New System.Drawing.Point(64, 64)
        Me.ComboBox10.Name = "ComboBox10"
        Me.ComboBox10.Size = New System.Drawing.Size(216, 21)
        Me.ComboBox10.TabIndex = 2
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(16, 32)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(48, 23)
        Me.Label24.TabIndex = 1
        '
        'ComboBox9
        '
        Me.ComboBox9.Location = New System.Drawing.Point(64, 32)
        Me.ComboBox9.Name = "ComboBox9"
        Me.ComboBox9.Size = New System.Drawing.Size(216, 21)
        Me.ComboBox9.TabIndex = 0
        '
        'ctmenu1
        '
        Me.ctmenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDel, Me.MenuItem14})
        '
        'MnuDel
        '
        Me.MnuDel.Index = 0
        Me.MnuDel.Text = "Eintrag löschen"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 1
        Me.MenuItem14.Text = "Einträge löschen"
        '
        'CTMenuErsteller
        '
        Me.CTMenuErsteller.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem15, Me.MenuItem16})
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 0
        Me.MenuItem15.Text = "Partner übernehmen"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 1
        Me.MenuItem16.Text = "Detailinformationen"
        '
        'CTMenuVerantwortlicher
        '
        Me.CTMenuVerantwortlicher.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem20})
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 0
        Me.MenuItem20.Text = "Eintrag übernehmen"
        '
        'CTMenuMutierer
        '
        Me.CTMenuMutierer.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem24, Me.MenuItem25, Me.MenuItem26, Me.MenuItem27})
        '
        'MenuItem24
        '
        Me.MenuItem24.Index = 0
        Me.MenuItem24.Text = "&Eintrag selektieren"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 1
        Me.MenuItem25.Text = "&Selektion aufheben"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 2
        Me.MenuItem26.Text = "-"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 3
        Me.MenuItem27.Text = "&Alle aufheben"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "profil", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("profilnr", "profilnr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("standard", "standard"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("color1", "color1"), New System.Data.Common.DataColumnMapping("color2", "color2"), New System.Data.Common.DataColumnMapping("color3", "color3"), New System.Data.Common.DataColumnMapping("color4", "color4"), New System.Data.Common.DataColumnMapping("color5", "color5"), New System.Data.Common.DataColumnMapping("color6", "color6"), New System.Data.Common.DataColumnMapping("color7", "color7"), New System.Data.Common.DataColumnMapping("color8", "color8"), New System.Data.Common.DataColumnMapping("unterschriftlinks", "unterschriftlinks"), New System.Data.Common.DataColumnMapping("unterschriftrechts", "unterschriftrechts"), New System.Data.Common.DataColumnMapping("hw1", "hw1"), New System.Data.Common.DataColumnMapping("hw2", "hw2"), New System.Data.Common.DataColumnMapping("hw3", "hw3"), New System.Data.Common.DataColumnMapping("hw4", "hw4"), New System.Data.Common.DataColumnMapping("hw5", "hw5"), New System.Data.Common.DataColumnMapping("hw6", "hw6"), New System.Data.Common.DataColumnMapping("hw7", "hw7"), New System.Data.Common.DataColumnMapping("hw8", "hw8"), New System.Data.Common.DataColumnMapping("hw9", "hw9"), New System.Data.Common.DataColumnMapping("hw10", "hw10"), New System.Data.Common.DataColumnMapping("hw11", "hw11"), New System.Data.Common.DataColumnMapping("vmb", "vmb"), New System.Data.Common.DataColumnMapping("vnl", "vnl"), New System.Data.Common.DataColumnMapping("vkost", "vkost"), New System.Data.Common.DataColumnMapping("vteam", "vteam"), New System.Data.Common.DataColumnMapping("vma", "vma"), New System.Data.Common.DataColumnMapping("mmb", "mmb"), New System.Data.Common.DataColumnMapping("mnl", "mnl"), New System.Data.Common.DataColumnMapping("mkost", "mkost"), New System.Data.Common.DataColumnMapping("mteam", "mteam"), New System.Data.Common.DataColumnMapping("mma", "mma"), New System.Data.Common.DataColumnMapping("emb", "emb"), New System.Data.Common.DataColumnMapping("enl", "enl"), New System.Data.Common.DataColumnMapping("ekost", "ekost"), New System.Data.Common.DataColumnMapping("eteam", "eteam"), New System.Data.Common.DataColumnMapping("ema", "ema"), New System.Data.Common.DataColumnMapping("dpartner", "dpartner"), New System.Data.Common.DataColumnMapping("ddokart", "ddokart"), New System.Data.Common.DataColumnMapping("ddokstatus", "ddokstatus"), New System.Data.Common.DataColumnMapping("datum1", "datum1"), New System.Data.Common.DataColumnMapping("datum2", "datum2"), New System.Data.Common.DataColumnMapping("datum3", "datum3"), New System.Data.Common.DataColumnMapping("datum4", "datum4"), New System.Data.Common.DataColumnMapping("datum5", "datum5"), New System.Data.Common.DataColumnMapping("datum6", "datum6"), New System.Data.Common.DataColumnMapping("datum7", "datum7"), New System.Data.Common.DataColumnMapping("datum8", "datum8"), New System.Data.Common.DataColumnMapping("erstaelterals", "erstaelterals"), New System.Data.Common.DataColumnMapping("mutaelterasl", "mutaelterasl"), New System.Data.Common.DataColumnMapping("team", "team"), New System.Data.Common.DataColumnMapping("sort", "sort"), New System.Data.Common.DataColumnMapping("aktive", "aktive"), New System.Data.Common.DataColumnMapping("profiltyp", "profiltyp"), New System.Data.Common.DataColumnMapping("doktyp", "doktyp"), New System.Data.Common.DataColumnMapping("inklmavip", "inklmavip"), New System.Data.Common.DataColumnMapping("inklalt", "inklalt"), New System.Data.Common.DataColumnMapping("hostpartner", "hostpartner"), New System.Data.Common.DataColumnMapping("hostdokart", "hostdokart"), New System.Data.Common.DataColumnMapping("hostdoktyp", "hostdoktyp"), New System.Data.Common.DataColumnMapping("hosttag1", "hosttag1"), New System.Data.Common.DataColumnMapping("hostdatum1", "hostdatum1"), New System.Data.Common.DataColumnMapping("hosttag2", "hosttag2"), New System.Data.Common.DataColumnMapping("hostdatum2", "hostdatum2"), New System.Data.Common.DataColumnMapping("hosttag3", "hosttag3"), New System.Data.Common.DataColumnMapping("hostdatum3", "hostdatum3"), New System.Data.Common.DataColumnMapping("inklhostmavip", "inklhostmavip")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "[pv_profil_delete]"
        Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
        "station id=SHU;packet size=4096"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "[pv_profil_insert]"
        Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 50, "hosttag1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 50, "hostdatum1"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 50, "hosttag2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 50, "hostdatum2"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 50, "hosttag3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 50, "hostdatum3"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "[pv_profil_select]"
        Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "[pv_profil_update]"
        Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "mandantnr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktyp", System.Data.SqlDbType.VarChar, 255, "doktyp"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklmavip", System.Data.SqlDbType.Bit, 1, "inklmavip"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklalt", System.Data.SqlDbType.Bit, 1, "inklalt"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostpartner", System.Data.SqlDbType.VarChar, 255, "hostpartner"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokart", System.Data.SqlDbType.VarChar, 255, "hostdokart"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdoktyp", System.Data.SqlDbType.VarChar, 255, "hostdoktyp"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag1", System.Data.SqlDbType.VarChar, 50, "hosttag1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum1", System.Data.SqlDbType.VarChar, 50, "hostdatum1"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag2", System.Data.SqlDbType.VarChar, 50, "hosttag2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum2", System.Data.SqlDbType.VarChar, 50, "hostdatum2"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hosttag3", System.Data.SqlDbType.VarChar, 50, "hosttag3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdatum3", System.Data.SqlDbType.VarChar, 50, "hostdatum3"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inklhostmavip", System.Data.SqlDbType.Bit, 1, "inklhostmavip"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profilnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profilnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktive", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktive", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_color8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "color8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum4", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum5", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum6", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum7", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datum8", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datum8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ddokstatus", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ddokstatus", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_doktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ekost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ekost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ema", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ema", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_emb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "emb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_enl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "enl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstaelterals", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstaelterals", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdatum3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdatum3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokart", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokart", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdoktyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdoktyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostpartner", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostpartner", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag1", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag2", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hosttag3", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hosttag3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw1", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw10", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw10", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw11", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw11", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw2", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw2", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw3", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw3", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw4", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw4", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw5", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw5", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw6", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw6", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw7", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw7", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw8", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw8", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hw9", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hw9", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklalt", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklhostmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklhostmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inklmavip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inklmavip", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mteam", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutaelterasl", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutaelterasl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_profiltyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "profiltyp", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sort", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sort", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_team", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "team", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftlinks", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftlinks", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschriftrechts", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschriftrechts", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vkost", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vkost", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vma", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vma", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vmb", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vmb", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vnl", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vnl", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vteam", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vteam", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection2
        '
        Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka_tkb;integrated security=SSPI;persist securi" & _
        "ty info=False;workstation id=SHU;packet size=4096"
        '
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(0, 33)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(3, 642)
        Me.Splitter1.TabIndex = 15
        Me.Splitter1.TabStop = False
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem17, Me.MenuItem18, Me.MenuItem21, Me.MenuItem22, Me.MenuItem19})
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 0
        Me.MenuItem17.Text = "&Aufwärts"
        '
        'MenuItem18
        '
        Me.MenuItem18.Index = 1
        Me.MenuItem18.Text = "A&bwärts"
        '
        'MenuItem21
        '
        Me.MenuItem21.Index = 2
        Me.MenuItem21.Text = "Sortierung ändern"
        '
        'MenuItem22
        '
        Me.MenuItem22.Index = 3
        Me.MenuItem22.Text = "-"
        '
        'MenuItem19
        '
        Me.MenuItem19.Index = 4
        Me.MenuItem19.Text = "&Löschen"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuSelectDokumentart, Me.MnuDeleteDokumentart, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
        '
        'MnuSelectDokumentart
        '
        Me.MnuSelectDokumentart.Index = 0
        Me.MnuSelectDokumentart.Text = "Eintrag auswählen"
        '
        'MnuDeleteDokumentart
        '
        Me.MnuDeleteDokumentart.Index = 1
        Me.MnuDeleteDokumentart.Text = "Eintrag abwählen"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 2
        Me.MenuItem2.Text = "-"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 3
        Me.MenuItem3.Text = "Knoten öffnen"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 4
        Me.MenuItem4.Text = "Knoten schliessen"
        '
        'ImageList2
        '
        Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'ImageList3
        '
        Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
        '
        'TabPage1
        '
        Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBGrid3, Me.Button46, Me.Label93, Me.TextBox40, Me.Label94, Me.TextBox41, Me.Label95, Me.TextBox42, Me.TreeView1, Me.GroupBox13, Me.GroupBox14, Me.Panel4, Me.Panel3, Me.C1TrueDBGrid1})
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(671, 616)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Selektion /Sortierung"
        '
        'C1TrueDBGrid3
        '
        Me.C1TrueDBGrid3.AllowFilter = True
        Me.C1TrueDBGrid3.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.C1TrueDBGrid3.AllowSort = True
        Me.C1TrueDBGrid3.CaptionHeight = 17
        Me.C1TrueDBGrid3.CollapseColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid3.DataChanged = False
        Me.C1TrueDBGrid3.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.C1TrueDBGrid3.ExpandColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid3.GroupByCaption = "Drag a column header here to group by that column"
        Me.C1TrueDBGrid3.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
        Me.C1TrueDBGrid3.Location = New System.Drawing.Point(304, 0)
        Me.C1TrueDBGrid3.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.C1TrueDBGrid3.Name = "C1TrueDBGrid3"
        Me.C1TrueDBGrid3.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid3.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.C1TrueDBGrid3.PreviewInfo.ZoomFactor = 75
        Me.C1TrueDBGrid3.PrintInfo.ShowOptionsDialog = False
        Me.C1TrueDBGrid3.RecordSelectorWidth = 16
        GridLines1.Color = System.Drawing.Color.DarkGray
        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.C1TrueDBGrid3.RowDivider = GridLines1
        Me.C1TrueDBGrid3.RowHeight = 15
        Me.C1TrueDBGrid3.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.C1TrueDBGrid3.ScrollTips = False
        Me.C1TrueDBGrid3.TabIndex = 20
        Me.C1TrueDBGrid3.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
        "ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
        "CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
        "er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
        "dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
        "er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
        "ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
        ".C1TrueDBGrid.MergeView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" Colu" & _
        "mnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" Def" & _
        "RecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0" & _
        ", 0, 0, 0</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me" & _
        "=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""Ev" & _
        "enRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterSt" & _
        "yle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><Hea" & _
        "dingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow" & _
        """ me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle pare" & _
        "nt=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style" & _
        "11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""" & _
        "Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent=""""" & _
        " me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=" & _
        """Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""In" & _
        "active"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Edit" & _
        "or"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""Even" & _
        "Row"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSe" & _
        "lector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Gr" & _
        "oup"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout" & _
        ">None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 0, 0<" & _
        "/ClientArea></Blob>"
        '
        'Button46
        '
        Me.Button46.Location = New System.Drawing.Point(936, 456)
        Me.Button46.Name = "Button46"
        Me.Button46.TabIndex = 21
        Me.Button46.Visible = False
        '
        'Label93
        '
        Me.Label93.Location = New System.Drawing.Point(1016, 424)
        Me.Label93.Name = "Label93"
        Me.Label93.TabIndex = 22
        '
        'TextBox40
        '
        Me.TextBox40.Location = New System.Drawing.Point(1040, 464)
        Me.TextBox40.Name = "TextBox40"
        Me.TextBox40.TabIndex = 23
        Me.TextBox40.Text = ""
        '
        'Label94
        '
        Me.Label94.Location = New System.Drawing.Point(928, 384)
        Me.Label94.Name = "Label94"
        Me.Label94.TabIndex = 24
        '
        'TextBox41
        '
        Me.TextBox41.Location = New System.Drawing.Point(1024, 176)
        Me.TextBox41.Name = "TextBox41"
        Me.TextBox41.TabIndex = 25
        Me.TextBox41.Text = ""
        '
        'Label95
        '
        Me.Label95.Location = New System.Drawing.Point(968, 224)
        Me.Label95.Name = "Label95"
        Me.Label95.TabIndex = 26
        '
        'TextBox42
        '
        Me.TextBox42.Location = New System.Drawing.Point(1008, 104)
        Me.TextBox42.Name = "TextBox42"
        Me.TextBox42.TabIndex = 27
        Me.TextBox42.Text = ""
        '
        'TreeView1
        '
        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
        Me.TreeView1.FullRowSelect = True
        Me.TreeView1.ImageList = Me.ImageList2
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Dokument", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Daten"), New System.Windows.Forms.TreeNode("Dokumentart"), New System.Windows.Forms.TreeNode("Dokumentstatus"), New System.Windows.Forms.TreeNode("Partner")}), New System.Windows.Forms.TreeNode("Ersteller", 8, 8, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")}), New System.Windows.Forms.TreeNode("Mutierer", 9, 9, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")}), New System.Windows.Forms.TreeNode("Verantwortlich", 7, 7, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Kostenstelle"), New System.Windows.Forms.TreeNode("Marktbereich"), New System.Windows.Forms.TreeNode("Mitarbeiter"), New System.Windows.Forms.TreeNode("Niederlassung"), New System.Windows.Forms.TreeNode("Team")})})
        Me.TreeView1.Size = New System.Drawing.Size(368, 616)
        Me.TreeView1.TabIndex = 0
        '
        'GroupBox13
        '
        Me.GroupBox13.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox15, Me.GroupBox16, Me.PnlDokumentDaten, Me.pnlhostdiv, Me.GroupBox24, Me.GroupBox25})
        Me.GroupBox13.Location = New System.Drawing.Point(376, 8)
        Me.GroupBox13.Name = "GroupBox13"
        Me.GroupBox13.Size = New System.Drawing.Size(296, 600)
        Me.GroupBox13.TabIndex = 9
        Me.GroupBox13.TabStop = False
        Me.GroupBox13.Text = "Dokumentarten"
        '
        'GroupBox15
        '
        Me.GroupBox15.Controls.AddRange(New System.Windows.Forms.Control() {Me.PnlDokumentart})
        Me.GroupBox15.Location = New System.Drawing.Point(8, 16)
        Me.GroupBox15.Name = "GroupBox15"
        Me.GroupBox15.Size = New System.Drawing.Size(280, 280)
        Me.GroupBox15.TabIndex = 0
        Me.GroupBox15.TabStop = False
        Me.GroupBox15.Text = "EDOKA-Dokumente"
        '
        'PnlDokumentart
        '
        Me.PnlDokumentart.Controls.AddRange(New System.Windows.Forms.Control() {Me.TVDokart})
        Me.PnlDokumentart.Location = New System.Drawing.Point(8, 16)
        Me.PnlDokumentart.Name = "PnlDokumentart"
        Me.PnlDokumentart.Size = New System.Drawing.Size(264, 256)
        Me.PnlDokumentart.TabIndex = 4
        '
        'TVDokart
        '
        Me.TVDokart.ImageIndex = -1
        Me.TVDokart.Name = "TVDokart"
        Me.TVDokart.SelectedImageIndex = -1
        Me.TVDokart.Size = New System.Drawing.Size(264, 256)
        Me.TVDokart.TabIndex = 0
        '
        'GroupBox16
        '
        Me.GroupBox16.Controls.AddRange(New System.Windows.Forms.Control() {Me.TVHostDok})
        Me.GroupBox16.Location = New System.Drawing.Point(8, 312)
        Me.GroupBox16.Name = "GroupBox16"
        Me.GroupBox16.Size = New System.Drawing.Size(280, 280)
        Me.GroupBox16.TabIndex = 8
        Me.GroupBox16.TabStop = False
        Me.GroupBox16.Text = "HOST-Dokumente"
        '
        'TVHostDok
        '
        Me.TVHostDok.ImageIndex = -1
        Me.TVHostDok.Location = New System.Drawing.Point(8, 16)
        Me.TVHostDok.Name = "TVHostDok"
        Me.TVHostDok.SelectedImageIndex = -1
        Me.TVHostDok.Size = New System.Drawing.Size(264, 256)
        Me.TVHostDok.TabIndex = 6
        '
        'PnlDokumentDaten
        '
        Me.PnlDokumentDaten.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.cbd6, Me.cbd4, Me.cbd2, Me.Label18, Me.Label16, Me.Label15, Me.Label14, Me.Label13, Me.GroupBox3, Me.GroupBox10, Me.Button1, Me.Button2, Me.Button3})
        Me.PnlDokumentDaten.Location = New System.Drawing.Point(16, 232)
        Me.PnlDokumentDaten.Name = "PnlDokumentDaten"
        Me.PnlDokumentDaten.Size = New System.Drawing.Size(128, 16)
        Me.PnlDokumentDaten.TabIndex = 1
        Me.PnlDokumentDaten.Visible = False
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(256, 344)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(40, 23)
        Me.Label8.TabIndex = 70
        Me.Label8.Text = "Tagen"
        Me.Label8.Visible = False
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(256, 320)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(40, 23)
        Me.Label7.TabIndex = 69
        Me.Label7.Text = "Tagen"
        Me.Label7.Visible = False
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(32, 344)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(160, 23)
        Me.Label6.TabIndex = 67
        Me.Label6.Text = "Mutationsdatum in den letzen "
        Me.Label6.Visible = False
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(32, 320)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(160, 23)
        Me.Label5.TabIndex = 66
        Me.Label5.Text = "Erstellungsdatum in den letzen"
        Me.Label5.Visible = False
        '
        'cbd6
        '
        Me.cbd6.Location = New System.Drawing.Point(16, 464)
        Me.cbd6.Name = "cbd6"
        Me.cbd6.Size = New System.Drawing.Size(16, 24)
        Me.cbd6.TabIndex = 64
        Me.cbd6.Visible = False
        '
        'cbd4
        '
        Me.cbd4.Location = New System.Drawing.Point(16, 440)
        Me.cbd4.Name = "cbd4"
        Me.cbd4.Size = New System.Drawing.Size(16, 24)
        Me.cbd4.TabIndex = 62
        Me.cbd4.Visible = False
        '
        'cbd2
        '
        Me.cbd2.Location = New System.Drawing.Point(16, 416)
        Me.cbd2.Name = "cbd2"
        Me.cbd2.Size = New System.Drawing.Size(16, 24)
        Me.cbd2.TabIndex = 60
        Me.cbd2.Visible = False
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(48, 464)
        Me.Label18.Name = "Label18"
        Me.Label18.TabIndex = 53
        Me.Label18.Text = "Archivierung bis"
        Me.Label18.Visible = False
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(48, 440)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(96, 23)
        Me.Label16.TabIndex = 51
        Me.Label16.Text = "Mutation bis"
        Me.Label16.Visible = False
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(8, 88)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(64, 23)
        Me.Label15.TabIndex = 50
        Me.Label15.Text = "Mutation"
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(48, 416)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(96, 23)
        Me.Label14.TabIndex = 49
        Me.Label14.Text = "Erstellung bis"
        Me.Label14.Visible = False
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(8, 32)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 23)
        Me.Label13.TabIndex = 48
        Me.Label13.Text = "Erstellung"
        '
        'GroupBox3
        '
        Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button17, Me.Button16, Me.Button15, Me.Button14, Me.Button13, Me.Button12, Me.cbrollend6, Me.cbrollend5, Me.cbrollend4, Me.cbrollend3, Me.Label39, Me.Label40, Me.Label12, Me.Label23, Me.cbrollend2, Me.cbrollend1, Me.Label11, Me.Label10, Me.txtdatum1, Me.DateTimePicker1, Me.txtdatum2, Me.DateTimePicker2, Me.txtdatum3, Me.txtdatum4, Me.Label17, Me.txtdatum5, Me.txtdatum6, Me.DateTimePicker6, Me.DateTimePicker3, Me.DateTimePicker4, Me.DateTimePicker5, Me.datumtext6, Me.datumtext5, Me.datumtext4, Me.datumtext3, Me.datumtext2, Me.datumtext1})
        Me.GroupBox3.Location = New System.Drawing.Point(0, 8)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(280, 184)
        Me.GroupBox3.TabIndex = 83
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Datumsselektion"
        '
        'Button17
        '
        Me.Button17.Image = CType(resources.GetObject("Button17.Image"), System.Drawing.Bitmap)
        Me.Button17.Location = New System.Drawing.Point(288, 173)
        Me.Button17.Name = "Button17"
        Me.Button17.Size = New System.Drawing.Size(32, 24)
        Me.Button17.TabIndex = 78
        '
        'Button16
        '
        Me.Button16.Image = CType(resources.GetObject("Button16.Image"), System.Drawing.Bitmap)
        Me.Button16.Location = New System.Drawing.Point(288, 149)
        Me.Button16.Name = "Button16"
        Me.Button16.Size = New System.Drawing.Size(32, 24)
        Me.Button16.TabIndex = 77
        '
        'Button15
        '
        Me.Button15.Image = CType(resources.GetObject("Button15.Image"), System.Drawing.Bitmap)
        Me.Button15.Location = New System.Drawing.Point(288, 117)
        Me.Button15.Name = "Button15"
        Me.Button15.Size = New System.Drawing.Size(32, 24)
        Me.Button15.TabIndex = 76
        '
        'Button14
        '
        Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Bitmap)
        Me.Button14.Location = New System.Drawing.Point(288, 93)
        Me.Button14.Name = "Button14"
        Me.Button14.Size = New System.Drawing.Size(32, 24)
        Me.Button14.TabIndex = 75
        '
        'Button13
        '
        Me.Button13.Image = CType(resources.GetObject("Button13.Image"), System.Drawing.Bitmap)
        Me.Button13.Location = New System.Drawing.Point(288, 61)
        Me.Button13.Name = "Button13"
        Me.Button13.Size = New System.Drawing.Size(32, 24)
        Me.Button13.TabIndex = 74
        '
        'Button12
        '
        Me.Button12.Image = CType(resources.GetObject("Button12.Image"), System.Drawing.Bitmap)
        Me.Button12.Location = New System.Drawing.Point(288, 37)
        Me.Button12.Name = "Button12"
        Me.Button12.Size = New System.Drawing.Size(32, 24)
        Me.Button12.TabIndex = 73
        '
        'cbrollend6
        '
        Me.cbrollend6.Location = New System.Drawing.Point(216, 160)
        Me.cbrollend6.Name = "cbrollend6"
        Me.cbrollend6.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend6.TabIndex = 68
        Me.cbrollend6.Text = "(rollend)"
        '
        'cbrollend5
        '
        Me.cbrollend5.Location = New System.Drawing.Point(216, 136)
        Me.cbrollend5.Name = "cbrollend5"
        Me.cbrollend5.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend5.TabIndex = 67
        Me.cbrollend5.Text = "(rollend)"
        '
        'cbrollend4
        '
        Me.cbrollend4.Location = New System.Drawing.Point(216, 104)
        Me.cbrollend4.Name = "cbrollend4"
        Me.cbrollend4.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend4.TabIndex = 66
        Me.cbrollend4.Text = "(rollend)"
        '
        'cbrollend3
        '
        Me.cbrollend3.Location = New System.Drawing.Point(216, 80)
        Me.cbrollend3.Name = "cbrollend3"
        Me.cbrollend3.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend3.TabIndex = 65
        Me.cbrollend3.Text = "(rollend)"
        '
        'Label39
        '
        Me.Label39.Location = New System.Drawing.Point(72, 160)
        Me.Label39.Name = "Label39"
        Me.Label39.Size = New System.Drawing.Size(32, 23)
        Me.Label39.TabIndex = 64
        Me.Label39.Text = "bis"
        '
        'Label40
        '
        Me.Label40.Location = New System.Drawing.Point(72, 136)
        Me.Label40.Name = "Label40"
        Me.Label40.Size = New System.Drawing.Size(32, 23)
        Me.Label40.TabIndex = 63
        Me.Label40.Text = "von"
        '
        'Label12
        '
        Me.Label12.Enabled = False
        Me.Label12.Location = New System.Drawing.Point(72, 104)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(32, 23)
        Me.Label12.TabIndex = 62
        Me.Label12.Text = "bis"
        '
        'Label23
        '
        Me.Label23.Enabled = False
        Me.Label23.Location = New System.Drawing.Point(72, 80)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(32, 23)
        Me.Label23.TabIndex = 61
        Me.Label23.Text = "von"
        '
        'cbrollend2
        '
        Me.cbrollend2.Location = New System.Drawing.Point(216, 48)
        Me.cbrollend2.Name = "cbrollend2"
        Me.cbrollend2.Size = New System.Drawing.Size(72, 24)
        Me.cbrollend2.TabIndex = 58
        Me.cbrollend2.Text = "(rollend)"
        '
        'cbrollend1
        '
        Me.cbrollend1.Location = New System.Drawing.Point(216, 24)
        Me.cbrollend1.Name = "cbrollend1"
        Me.cbrollend1.Size = New System.Drawing.Size(80, 24)
        Me.cbrollend1.TabIndex = 57
        Me.cbrollend1.Text = "(rollend)"
        '
        'Label11
        '
        Me.Label11.Enabled = False
        Me.Label11.Location = New System.Drawing.Point(72, 48)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(32, 23)
        Me.Label11.TabIndex = 56
        Me.Label11.Text = "bis"
        '
        'Label10
        '
        Me.Label10.Enabled = False
        Me.Label10.Location = New System.Drawing.Point(72, 24)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(32, 23)
        Me.Label10.TabIndex = 0
        Me.Label10.Text = "von"
        '
        'txtdatum1
        '
        Me.txtdatum1.BackColor = System.Drawing.Color.White
        Me.txtdatum1.ForeColor = System.Drawing.Color.Black
        Me.txtdatum1.Location = New System.Drawing.Point(112, 24)
        Me.txtdatum1.Name = "txtdatum1"
        Me.txtdatum1.ReadOnly = True
        Me.txtdatum1.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum1.TabIndex = 54
        Me.txtdatum1.Text = ""
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
        Me.DateTimePicker1.Location = New System.Drawing.Point(112, 24)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker1.TabIndex = 42
        Me.DateTimePicker1.TabStop = False
        Me.DateTimePicker1.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'txtdatum2
        '
        Me.txtdatum2.BackColor = System.Drawing.Color.White
        Me.txtdatum2.ForeColor = System.Drawing.Color.Black
        Me.txtdatum2.Location = New System.Drawing.Point(112, 48)
        Me.txtdatum2.Name = "txtdatum2"
        Me.txtdatum2.ReadOnly = True
        Me.txtdatum2.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum2.TabIndex = 55
        Me.txtdatum2.Text = ""
        '
        'DateTimePicker2
        '
        Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker2.Location = New System.Drawing.Point(112, 48)
        Me.DateTimePicker2.Name = "DateTimePicker2"
        Me.DateTimePicker2.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker2.TabIndex = 43
        Me.DateTimePicker2.TabStop = False
        Me.DateTimePicker2.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'txtdatum3
        '
        Me.txtdatum3.BackColor = System.Drawing.Color.White
        Me.txtdatum3.ForeColor = System.Drawing.Color.Black
        Me.txtdatum3.Location = New System.Drawing.Point(112, 80)
        Me.txtdatum3.Name = "txtdatum3"
        Me.txtdatum3.ReadOnly = True
        Me.txtdatum3.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum3.TabIndex = 56
        Me.txtdatum3.Text = ""
        '
        'txtdatum4
        '
        Me.txtdatum4.BackColor = System.Drawing.Color.White
        Me.txtdatum4.ForeColor = System.Drawing.Color.Black
        Me.txtdatum4.Location = New System.Drawing.Point(112, 104)
        Me.txtdatum4.Name = "txtdatum4"
        Me.txtdatum4.ReadOnly = True
        Me.txtdatum4.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum4.TabIndex = 57
        Me.txtdatum4.Text = ""
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(8, 136)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(72, 23)
        Me.Label17.TabIndex = 52
        Me.Label17.Text = "Archivierung"
        '
        'txtdatum5
        '
        Me.txtdatum5.BackColor = System.Drawing.Color.White
        Me.txtdatum5.ForeColor = System.Drawing.Color.Black
        Me.txtdatum5.Location = New System.Drawing.Point(112, 136)
        Me.txtdatum5.Name = "txtdatum5"
        Me.txtdatum5.ReadOnly = True
        Me.txtdatum5.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum5.TabIndex = 58
        Me.txtdatum5.Text = ""
        '
        'txtdatum6
        '
        Me.txtdatum6.BackColor = System.Drawing.Color.White
        Me.txtdatum6.ForeColor = System.Drawing.Color.Black
        Me.txtdatum6.Location = New System.Drawing.Point(112, 160)
        Me.txtdatum6.Name = "txtdatum6"
        Me.txtdatum6.ReadOnly = True
        Me.txtdatum6.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum6.TabIndex = 59
        Me.txtdatum6.Text = ""
        '
        'DateTimePicker6
        '
        Me.DateTimePicker6.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker6.Location = New System.Drawing.Point(112, 160)
        Me.DateTimePicker6.Name = "DateTimePicker6"
        Me.DateTimePicker6.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker6.TabIndex = 47
        Me.DateTimePicker6.TabStop = False
        Me.DateTimePicker6.Value = New Date(2004, 1, 14, 18, 49, 58, 703)
        '
        'DateTimePicker3
        '
        Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker3.Location = New System.Drawing.Point(112, 80)
        Me.DateTimePicker3.Name = "DateTimePicker3"
        Me.DateTimePicker3.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker3.TabIndex = 44
        Me.DateTimePicker3.TabStop = False
        Me.DateTimePicker3.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'DateTimePicker4
        '
        Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker4.Location = New System.Drawing.Point(112, 104)
        Me.DateTimePicker4.Name = "DateTimePicker4"
        Me.DateTimePicker4.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker4.TabIndex = 45
        Me.DateTimePicker4.TabStop = False
        Me.DateTimePicker4.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'DateTimePicker5
        '
        Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker5.Location = New System.Drawing.Point(112, 136)
        Me.DateTimePicker5.Name = "DateTimePicker5"
        Me.DateTimePicker5.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker5.TabIndex = 46
        Me.DateTimePicker5.TabStop = False
        Me.DateTimePicker5.Value = New Date(2004, 1, 14, 18, 49, 58, 703)
        '
        'datumtext6
        '
        Me.datumtext6.Location = New System.Drawing.Point(224, 160)
        Me.datumtext6.Name = "datumtext6"
        Me.datumtext6.TabIndex = 72
        Me.datumtext6.Visible = False
        '
        'datumtext5
        '
        Me.datumtext5.Location = New System.Drawing.Point(224, 136)
        Me.datumtext5.Name = "datumtext5"
        Me.datumtext5.TabIndex = 71
        Me.datumtext5.Visible = False
        '
        'datumtext4
        '
        Me.datumtext4.Location = New System.Drawing.Point(224, 104)
        Me.datumtext4.Name = "datumtext4"
        Me.datumtext4.TabIndex = 70
        Me.datumtext4.Visible = False
        '
        'datumtext3
        '
        Me.datumtext3.Location = New System.Drawing.Point(224, 80)
        Me.datumtext3.Name = "datumtext3"
        Me.datumtext3.TabIndex = 69
        Me.datumtext3.Visible = False
        '
        'datumtext2
        '
        Me.datumtext2.Location = New System.Drawing.Point(224, 48)
        Me.datumtext2.Name = "datumtext2"
        Me.datumtext2.TabIndex = 60
        Me.datumtext2.Visible = False
        '
        'datumtext1
        '
        Me.datumtext1.Location = New System.Drawing.Point(224, 24)
        Me.datumtext1.Name = "datumtext1"
        Me.datumtext1.TabIndex = 59
        Me.datumtext1.Visible = False
        '
        'GroupBox10
        '
        Me.GroupBox10.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox10.Controls.AddRange(New System.Windows.Forms.Control() {Me.cinklalt})
        Me.GroupBox10.Location = New System.Drawing.Point(0, 192)
        Me.GroupBox10.Name = "GroupBox10"
        Me.GroupBox10.Size = New System.Drawing.Size(280, 56)
        Me.GroupBox10.TabIndex = 85
        Me.GroupBox10.TabStop = False
        Me.GroupBox10.Text = "Datenselektion"
        '
        'cinklalt
        '
        Me.cinklalt.Location = New System.Drawing.Point(16, 16)
        Me.cinklalt.Name = "cinklalt"
        Me.cinklalt.Size = New System.Drawing.Size(216, 32)
        Me.cinklalt.TabIndex = 84
        Me.cinklalt.Text = "Dokumentselektion inkl. gelöschte/aufgehobene Dokumente"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(344, 48)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(16, 16)
        Me.Button1.TabIndex = 74
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(344, 88)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(16, 16)
        Me.Button2.TabIndex = 75
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(344, 136)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(16, 16)
        Me.Button3.TabIndex = 76
        '
        'pnlhostdiv
        '
        Me.pnlhostdiv.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox4, Me.GroupBox11, Me.GroupBox8, Me.Label20, Me.hostinklmavip, Me.GroupBox7, Me.Label29, Me.DateTimePicker7, Me.GroupBox6, Me.Label32, Me.Label33, Me.Label34, Me.Label35, Me.CheckBox3, Me.CheckBox4, Me.CheckBox5, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.Label36, Me.Label37, Me.Label38, Me.DateTimePicker10, Me.DateTimePicker11, Me.DateTimePicker12, Me.Button8, Me.Button7, Me.Button6})
        Me.pnlhostdiv.Location = New System.Drawing.Point(16, 264)
        Me.pnlhostdiv.Name = "pnlhostdiv"
        Me.pnlhostdiv.Size = New System.Drawing.Size(152, 24)
        Me.pnlhostdiv.TabIndex = 7
        Me.pnlhostdiv.Visible = False
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox6, Me.Button20})
        Me.GroupBox4.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox4.TabIndex = 91
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "VV-Nummer extern"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(8, 24)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(112, 20)
        Me.TextBox6.TabIndex = 87
        Me.TextBox6.Text = ""
        '
        'Button20
        '
        Me.Button20.Location = New System.Drawing.Point(128, 24)
        Me.Button20.Name = "Button20"
        Me.Button20.Size = New System.Drawing.Size(40, 23)
        Me.Button20.TabIndex = 88
        Me.Button20.Text = "&OK"
        '
        'GroupBox11
        '
        Me.GroupBox11.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox5, Me.Button10})
        Me.GroupBox11.Location = New System.Drawing.Point(8, 232)
        Me.GroupBox11.Name = "GroupBox11"
        Me.GroupBox11.Size = New System.Drawing.Size(360, 64)
        Me.GroupBox11.TabIndex = 90
        Me.GroupBox11.TabStop = False
        Me.GroupBox11.Text = "ISIN-Nummer"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(8, 24)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(112, 20)
        Me.TextBox5.TabIndex = 88
        Me.TextBox5.Text = ""
        '
        'Button10
        '
        Me.Button10.Location = New System.Drawing.Point(128, 24)
        Me.Button10.Name = "Button10"
        Me.Button10.Size = New System.Drawing.Size(40, 23)
        Me.Button10.TabIndex = 89
        Me.Button10.Text = "&OK"
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox4, Me.Button9})
        Me.GroupBox8.Location = New System.Drawing.Point(8, 168)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox8.TabIndex = 89
        Me.GroupBox8.TabStop = False
        Me.GroupBox8.Text = "Valoren-Nummer"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(8, 24)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(112, 20)
        Me.TextBox4.TabIndex = 87
        Me.TextBox4.Text = ""
        '
        'Button9
        '
        Me.Button9.Location = New System.Drawing.Point(128, 24)
        Me.Button9.Name = "Button9"
        Me.Button9.Size = New System.Drawing.Size(40, 23)
        Me.Button9.TabIndex = 88
        Me.Button9.Text = "&OK"
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(80, 312)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(80, 23)
        Me.Label20.TabIndex = 86
        Me.Label20.Text = "ISIN-Nummer"
        Me.Label20.Visible = False
        '
        'hostinklmavip
        '
        Me.hostinklmavip.Location = New System.Drawing.Point(16, 376)
        Me.hostinklmavip.Name = "hostinklmavip"
        Me.hostinklmavip.Size = New System.Drawing.Size(264, 24)
        Me.hostinklmavip.TabIndex = 82
        Me.hostinklmavip.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
        Me.hostinklmavip.Visible = False
        '
        'GroupBox7
        '
        Me.GroupBox7.Location = New System.Drawing.Point(8, 360)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(360, 48)
        Me.GroupBox7.TabIndex = 84
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "Datenselektion"
        Me.GroupBox7.Visible = False
        '
        'Label29
        '
        Me.Label29.Location = New System.Drawing.Point(8, 32)
        Me.Label29.Name = "Label29"
        Me.Label29.Size = New System.Drawing.Size(48, 32)
        Me.Label29.TabIndex = 48
        Me.Label29.Text = "Valuta-Datum"
        '
        'DateTimePicker7
        '
        Me.DateTimePicker7.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker7.Location = New System.Drawing.Point(264, 328)
        Me.DateTimePicker7.Name = "DateTimePicker7"
        Me.DateTimePicker7.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker7.TabIndex = 46
        Me.DateTimePicker7.TabStop = False
        Me.DateTimePicker7.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        Me.DateTimePicker7.Visible = False
        '
        'GroupBox6
        '
        Me.GroupBox6.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox6.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button18, Me.Button19, Me.DatumHostText2, Me.DatumHostText1, Me.cbrollend9, Me.cbrollend8, Me.HostDatum1, Me.Label9, Me.Label4, Me.lblhostdatum31, Me.ComboBox6, Me.Label27, Me.lblhostdatum3, Me.HostDatum3, Me.HostTag3, Me.HostDatum2, Me.DateTimePicker8, Me.lblhostdatum2, Me.DateTimePicker9})
        Me.GroupBox6.Location = New System.Drawing.Point(0, 8)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(280, 88)
        Me.GroupBox6.TabIndex = 83
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "Datumsselektion"
        '
        'Button18
        '
        Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Bitmap)
        Me.Button18.Location = New System.Drawing.Point(308, 49)
        Me.Button18.Name = "Button18"
        Me.Button18.Size = New System.Drawing.Size(32, 24)
        Me.Button18.TabIndex = 97
        '
        'Button19
        '
        Me.Button19.Image = CType(resources.GetObject("Button19.Image"), System.Drawing.Bitmap)
        Me.Button19.Location = New System.Drawing.Point(308, 25)
        Me.Button19.Name = "Button19"
        Me.Button19.Size = New System.Drawing.Size(32, 24)
        Me.Button19.TabIndex = 96
        '
        'DatumHostText2
        '
        Me.DatumHostText2.Location = New System.Drawing.Point(216, 80)
        Me.DatumHostText2.Name = "DatumHostText2"
        Me.DatumHostText2.TabIndex = 95
        Me.DatumHostText2.Text = "Label26"
        Me.DatumHostText2.Visible = False
        '
        'DatumHostText1
        '
        Me.DatumHostText1.Location = New System.Drawing.Point(88, 80)
        Me.DatumHostText1.Name = "DatumHostText1"
        Me.DatumHostText1.TabIndex = 94
        Me.DatumHostText1.Text = "Label26"
        Me.DatumHostText1.Visible = False
        '
        'cbrollend9
        '
        Me.cbrollend9.Location = New System.Drawing.Point(200, 48)
        Me.cbrollend9.Name = "cbrollend9"
        Me.cbrollend9.TabIndex = 93
        Me.cbrollend9.Text = "(rollend)"
        '
        'cbrollend8
        '
        Me.cbrollend8.Location = New System.Drawing.Point(200, 24)
        Me.cbrollend8.Name = "cbrollend8"
        Me.cbrollend8.Size = New System.Drawing.Size(96, 24)
        Me.cbrollend8.TabIndex = 92
        Me.cbrollend8.Text = "(rollend)"
        '
        'HostDatum1
        '
        Me.HostDatum1.BackColor = System.Drawing.Color.White
        Me.HostDatum1.ForeColor = System.Drawing.Color.Black
        Me.HostDatum1.Location = New System.Drawing.Point(96, 24)
        Me.HostDatum1.Name = "HostDatum1"
        Me.HostDatum1.ReadOnly = True
        Me.HostDatum1.Size = New System.Drawing.Size(79, 20)
        Me.HostDatum1.TabIndex = 54
        Me.HostDatum1.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(56, 48)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(40, 23)
        Me.Label9.TabIndex = 91
        Me.Label9.Text = "bis"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(56, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(40, 23)
        Me.Label4.TabIndex = 90
        Me.Label4.Text = "von"
        '
        'lblhostdatum31
        '
        Me.lblhostdatum31.Location = New System.Drawing.Point(240, 152)
        Me.lblhostdatum31.Name = "lblhostdatum31"
        Me.lblhostdatum31.Size = New System.Drawing.Size(96, 16)
        Me.lblhostdatum31.TabIndex = 89
        Me.lblhostdatum31.Text = "(19.12.2003)"
        Me.lblhostdatum31.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblhostdatum31.Visible = False
        '
        'ComboBox6
        '
        Me.ComboBox6.ItemHeight = 13
        Me.ComboBox6.Items.AddRange(New Object() {"(heute)", "(heute-1)", "(heute-2)", "(heute-3)", "(heute-4)", "(heute-5)", "(heute-6)", "(heute-7)", "(heute-8)", "(heute-9)", "(heute-10)", "(heute-11)", "(heute-12)", "(heute-13)", "(heute-14)", "(heute-15)", "(heute-16)", "(heute-17)", "(heute-18)", "(heute-19)", "(heute-20)", "(heute-21)", "(heute-22)", "(heute-23)", "(heute-24)", "(heute-25)", "(heute-26)", "(heute-27)", "(heute-28)", "(heute-29)", "(heute-30)"})
        Me.ComboBox6.Location = New System.Drawing.Point(240, 128)
        Me.ComboBox6.Name = "ComboBox6"
        Me.ComboBox6.Size = New System.Drawing.Size(115, 21)
        Me.ComboBox6.TabIndex = 3
        Me.ComboBox6.Text = "ComboBox6"
        Me.ComboBox6.Visible = False
        '
        'Label27
        '
        Me.Label27.Location = New System.Drawing.Point(8, 128)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(72, 23)
        Me.Label27.TabIndex = 52
        Me.Label27.Text = "Archivierung"
        Me.Label27.Visible = False
        '
        'lblhostdatum3
        '
        Me.lblhostdatum3.Location = New System.Drawing.Point(160, 128)
        Me.lblhostdatum3.Name = "lblhostdatum3"
        Me.lblhostdatum3.Size = New System.Drawing.Size(72, 21)
        Me.lblhostdatum3.TabIndex = 79
        Me.lblhostdatum3.Visible = False
        '
        'HostDatum3
        '
        Me.HostDatum3.BackColor = System.Drawing.Color.White
        Me.HostDatum3.Enabled = False
        Me.HostDatum3.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.HostDatum3.Location = New System.Drawing.Point(240, 128)
        Me.HostDatum3.Name = "HostDatum3"
        Me.HostDatum3.ReadOnly = True
        Me.HostDatum3.Size = New System.Drawing.Size(79, 20)
        Me.HostDatum3.TabIndex = 58
        Me.HostDatum3.Text = "TextBox4"
        Me.HostDatum3.Visible = False
        '
        'HostTag3
        '
        Me.HostTag3.ItemHeight = 13
        Me.HostTag3.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
        Me.HostTag3.Location = New System.Drawing.Point(80, 128)
        Me.HostTag3.Name = "HostTag3"
        Me.HostTag3.Size = New System.Drawing.Size(56, 21)
        Me.HostTag3.TabIndex = 71
        Me.HostTag3.Text = "HostTag3"
        Me.HostTag3.Visible = False
        '
        'HostDatum2
        '
        Me.HostDatum2.BackColor = System.Drawing.Color.White
        Me.HostDatum2.ForeColor = System.Drawing.Color.Black
        Me.HostDatum2.Location = New System.Drawing.Point(96, 48)
        Me.HostDatum2.Name = "HostDatum2"
        Me.HostDatum2.ReadOnly = True
        Me.HostDatum2.Size = New System.Drawing.Size(79, 20)
        Me.HostDatum2.TabIndex = 56
        Me.HostDatum2.Text = ""
        '
        'DateTimePicker8
        '
        Me.DateTimePicker8.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker8.Location = New System.Drawing.Point(96, 48)
        Me.DateTimePicker8.Name = "DateTimePicker8"
        Me.DateTimePicker8.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker8.TabIndex = 44
        Me.DateTimePicker8.TabStop = False
        Me.DateTimePicker8.Value = New Date(2004, 1, 14, 18, 49, 59, 203)
        '
        'lblhostdatum2
        '
        Me.lblhostdatum2.Location = New System.Drawing.Point(160, 72)
        Me.lblhostdatum2.Name = "lblhostdatum2"
        Me.lblhostdatum2.Size = New System.Drawing.Size(72, 21)
        Me.lblhostdatum2.TabIndex = 78
        Me.lblhostdatum2.Visible = False
        '
        'DateTimePicker9
        '
        Me.DateTimePicker9.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker9.Location = New System.Drawing.Point(96, 24)
        Me.DateTimePicker9.Name = "DateTimePicker9"
        Me.DateTimePicker9.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker9.TabIndex = 42
        Me.DateTimePicker9.TabStop = False
        Me.DateTimePicker9.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        '
        'Label32
        '
        Me.Label32.Location = New System.Drawing.Point(304, 456)
        Me.Label32.Name = "Label32"
        Me.Label32.Size = New System.Drawing.Size(40, 23)
        Me.Label32.TabIndex = 70
        Me.Label32.Text = "Tagen"
        Me.Label32.Visible = False
        '
        'Label33
        '
        Me.Label33.Location = New System.Drawing.Point(304, 432)
        Me.Label33.Name = "Label33"
        Me.Label33.Size = New System.Drawing.Size(40, 23)
        Me.Label33.TabIndex = 69
        Me.Label33.Text = "Tagen"
        Me.Label33.Visible = False
        '
        'Label34
        '
        Me.Label34.Location = New System.Drawing.Point(80, 456)
        Me.Label34.Name = "Label34"
        Me.Label34.Size = New System.Drawing.Size(160, 23)
        Me.Label34.TabIndex = 67
        Me.Label34.Text = "Mutationsdatum in den letzen "
        Me.Label34.Visible = False
        '
        'Label35
        '
        Me.Label35.Location = New System.Drawing.Point(80, 432)
        Me.Label35.Name = "Label35"
        Me.Label35.Size = New System.Drawing.Size(160, 23)
        Me.Label35.TabIndex = 66
        Me.Label35.Text = "Erstellungsdatum in den letzen"
        Me.Label35.Visible = False
        '
        'CheckBox3
        '
        Me.CheckBox3.Location = New System.Drawing.Point(16, 464)
        Me.CheckBox3.Name = "CheckBox3"
        Me.CheckBox3.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox3.TabIndex = 64
        Me.CheckBox3.Visible = False
        '
        'CheckBox4
        '
        Me.CheckBox4.Location = New System.Drawing.Point(16, 440)
        Me.CheckBox4.Name = "CheckBox4"
        Me.CheckBox4.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox4.TabIndex = 62
        Me.CheckBox4.Visible = False
        '
        'CheckBox5
        '
        Me.CheckBox5.Location = New System.Drawing.Point(16, 416)
        Me.CheckBox5.Name = "CheckBox5"
        Me.CheckBox5.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox5.TabIndex = 60
        Me.CheckBox5.Visible = False
        '
        'TextBox7
        '
        Me.TextBox7.BackColor = System.Drawing.Color.White
        Me.TextBox7.Enabled = False
        Me.TextBox7.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox7.Location = New System.Drawing.Point(160, 464)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.ReadOnly = True
        Me.TextBox7.Size = New System.Drawing.Size(80, 20)
        Me.TextBox7.TabIndex = 59
        Me.TextBox7.Text = "TextBox4"
        Me.TextBox7.Visible = False
        '
        'TextBox8
        '
        Me.TextBox8.BackColor = System.Drawing.Color.White
        Me.TextBox8.Enabled = False
        Me.TextBox8.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox8.Location = New System.Drawing.Point(160, 440)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.ReadOnly = True
        Me.TextBox8.Size = New System.Drawing.Size(80, 20)
        Me.TextBox8.TabIndex = 57
        Me.TextBox8.Text = "TextBox4"
        Me.TextBox8.Visible = False
        '
        'TextBox9
        '
        Me.TextBox9.BackColor = System.Drawing.Color.White
        Me.TextBox9.Enabled = False
        Me.TextBox9.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox9.Location = New System.Drawing.Point(160, 416)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.ReadOnly = True
        Me.TextBox9.Size = New System.Drawing.Size(80, 20)
        Me.TextBox9.TabIndex = 55
        Me.TextBox9.Text = "TextBox4"
        Me.TextBox9.Visible = False
        '
        'Label36
        '
        Me.Label36.Location = New System.Drawing.Point(48, 464)
        Me.Label36.Name = "Label36"
        Me.Label36.TabIndex = 53
        Me.Label36.Text = "Archivierung bis"
        Me.Label36.Visible = False
        '
        'Label37
        '
        Me.Label37.Location = New System.Drawing.Point(48, 440)
        Me.Label37.Name = "Label37"
        Me.Label37.Size = New System.Drawing.Size(96, 23)
        Me.Label37.TabIndex = 51
        Me.Label37.Text = "Mutation bis"
        Me.Label37.Visible = False
        '
        'Label38
        '
        Me.Label38.Location = New System.Drawing.Point(48, 416)
        Me.Label38.Name = "Label38"
        Me.Label38.Size = New System.Drawing.Size(96, 23)
        Me.Label38.TabIndex = 49
        Me.Label38.Text = "Erstellung bis"
        Me.Label38.Visible = False
        '
        'DateTimePicker10
        '
        Me.DateTimePicker10.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker10.Location = New System.Drawing.Point(160, 464)
        Me.DateTimePicker10.Name = "DateTimePicker10"
        Me.DateTimePicker10.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker10.TabIndex = 47
        Me.DateTimePicker10.TabStop = False
        Me.DateTimePicker10.Value = New Date(2004, 1, 14, 18, 49, 59, 312)
        Me.DateTimePicker10.Visible = False
        '
        'DateTimePicker11
        '
        Me.DateTimePicker11.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker11.Location = New System.Drawing.Point(160, 440)
        Me.DateTimePicker11.Name = "DateTimePicker11"
        Me.DateTimePicker11.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker11.TabIndex = 45
        Me.DateTimePicker11.TabStop = False
        Me.DateTimePicker11.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker11.Visible = False
        '
        'DateTimePicker12
        '
        Me.DateTimePicker12.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker12.Location = New System.Drawing.Point(160, 416)
        Me.DateTimePicker12.Name = "DateTimePicker12"
        Me.DateTimePicker12.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker12.TabIndex = 43
        Me.DateTimePicker12.TabStop = False
        Me.DateTimePicker12.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker12.Visible = False
        '
        'Button8
        '
        Me.Button8.Location = New System.Drawing.Point(344, 48)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(16, 16)
        Me.Button8.TabIndex = 74
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(344, 80)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(16, 16)
        Me.Button7.TabIndex = 75
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(360, 336)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(16, 16)
        Me.Button6.TabIndex = 76
        Me.Button6.Visible = False
        '
        'GroupBox24
        '
        Me.GroupBox24.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox31, Me.GroupBox30})
        Me.GroupBox24.Location = New System.Drawing.Point(16, 344)
        Me.GroupBox24.Name = "GroupBox24"
        Me.GroupBox24.Size = New System.Drawing.Size(232, 32)
        Me.GroupBox24.TabIndex = 19
        Me.GroupBox24.TabStop = False
        Me.GroupBox24.Text = "ZV-Belege"
        Me.GroupBox24.Visible = False
        '
        'GroupBox31
        '
        Me.GroupBox31.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox32, Me.Panel9, Me.Panel10})
        Me.GroupBox31.Location = New System.Drawing.Point(592, 8)
        Me.GroupBox31.Name = "GroupBox31"
        Me.GroupBox31.Size = New System.Drawing.Size(296, 488)
        Me.GroupBox31.TabIndex = 10
        Me.GroupBox31.TabStop = False
        Me.GroupBox31.Text = "Host-Dokumente"
        '
        'GroupBox32
        '
        Me.GroupBox32.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeView4})
        Me.GroupBox32.Location = New System.Drawing.Point(8, 24)
        Me.GroupBox32.Name = "GroupBox32"
        Me.GroupBox32.Size = New System.Drawing.Size(280, 160)
        Me.GroupBox32.TabIndex = 8
        Me.GroupBox32.TabStop = False
        Me.GroupBox32.Text = "Dokumentart"
        '
        'TreeView4
        '
        Me.TreeView4.ImageIndex = -1
        Me.TreeView4.Location = New System.Drawing.Point(8, 16)
        Me.TreeView4.Name = "TreeView4"
        Me.TreeView4.SelectedImageIndex = -1
        Me.TreeView4.Size = New System.Drawing.Size(264, 136)
        Me.TreeView4.TabIndex = 6
        '
        'Panel9
        '
        Me.Panel9.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox33, Me.GroupBox34, Me.GroupBox35, Me.Label73, Me.CheckBox16, Me.GroupBox36, Me.Label74, Me.DateTimePicker25, Me.GroupBox37, Me.Label83, Me.Label84, Me.Label85, Me.Label86, Me.CheckBox19, Me.CheckBox20, Me.CheckBox21, Me.TextBox34, Me.TextBox35, Me.TextBox36, Me.Label87, Me.Label88, Me.Label89, Me.DateTimePicker28, Me.DateTimePicker29, Me.DateTimePicker30, Me.Button42, Me.Button43, Me.Button44})
        Me.Panel9.Location = New System.Drawing.Point(8, 192)
        Me.Panel9.Name = "Panel9"
        Me.Panel9.Size = New System.Drawing.Size(280, 104)
        Me.Panel9.TabIndex = 7
        '
        'GroupBox33
        '
        Me.GroupBox33.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox28, Me.Button37})
        Me.GroupBox33.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox33.Name = "GroupBox33"
        Me.GroupBox33.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox33.TabIndex = 91
        Me.GroupBox33.TabStop = False
        Me.GroupBox33.Text = "VV-Nummer extern"
        '
        'TextBox28
        '
        Me.TextBox28.Location = New System.Drawing.Point(8, 24)
        Me.TextBox28.Name = "TextBox28"
        Me.TextBox28.Size = New System.Drawing.Size(112, 20)
        Me.TextBox28.TabIndex = 87
        Me.TextBox28.Text = ""
        '
        'Button37
        '
        Me.Button37.Location = New System.Drawing.Point(128, 24)
        Me.Button37.Name = "Button37"
        Me.Button37.Size = New System.Drawing.Size(40, 23)
        Me.Button37.TabIndex = 88
        Me.Button37.Text = "&OK"
        '
        'GroupBox34
        '
        Me.GroupBox34.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox29, Me.Button38})
        Me.GroupBox34.Location = New System.Drawing.Point(8, 232)
        Me.GroupBox34.Name = "GroupBox34"
        Me.GroupBox34.Size = New System.Drawing.Size(360, 64)
        Me.GroupBox34.TabIndex = 90
        Me.GroupBox34.TabStop = False
        Me.GroupBox34.Text = "ISIN-Nummer"
        '
        'TextBox29
        '
        Me.TextBox29.Location = New System.Drawing.Point(8, 24)
        Me.TextBox29.Name = "TextBox29"
        Me.TextBox29.Size = New System.Drawing.Size(112, 20)
        Me.TextBox29.TabIndex = 88
        Me.TextBox29.Text = ""
        '
        'Button38
        '
        Me.Button38.Location = New System.Drawing.Point(128, 24)
        Me.Button38.Name = "Button38"
        Me.Button38.Size = New System.Drawing.Size(40, 23)
        Me.Button38.TabIndex = 89
        Me.Button38.Text = "&OK"
        '
        'GroupBox35
        '
        Me.GroupBox35.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox30, Me.Button39})
        Me.GroupBox35.Location = New System.Drawing.Point(8, 168)
        Me.GroupBox35.Name = "GroupBox35"
        Me.GroupBox35.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox35.TabIndex = 89
        Me.GroupBox35.TabStop = False
        Me.GroupBox35.Text = "Valoren-Nummer"
        '
        'TextBox30
        '
        Me.TextBox30.Location = New System.Drawing.Point(8, 24)
        Me.TextBox30.Name = "TextBox30"
        Me.TextBox30.Size = New System.Drawing.Size(112, 20)
        Me.TextBox30.TabIndex = 87
        Me.TextBox30.Text = ""
        '
        'Button39
        '
        Me.Button39.Location = New System.Drawing.Point(128, 24)
        Me.Button39.Name = "Button39"
        Me.Button39.Size = New System.Drawing.Size(40, 23)
        Me.Button39.TabIndex = 88
        Me.Button39.Text = "&OK"
        '
        'Label73
        '
        Me.Label73.Location = New System.Drawing.Point(80, 312)
        Me.Label73.Name = "Label73"
        Me.Label73.Size = New System.Drawing.Size(80, 23)
        Me.Label73.TabIndex = 86
        Me.Label73.Text = "ISIN-Nummer"
        Me.Label73.Visible = False
        '
        'CheckBox16
        '
        Me.CheckBox16.Location = New System.Drawing.Point(16, 376)
        Me.CheckBox16.Name = "CheckBox16"
        Me.CheckBox16.Size = New System.Drawing.Size(264, 24)
        Me.CheckBox16.TabIndex = 82
        Me.CheckBox16.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
        Me.CheckBox16.Visible = False
        '
        'GroupBox36
        '
        Me.GroupBox36.Location = New System.Drawing.Point(8, 360)
        Me.GroupBox36.Name = "GroupBox36"
        Me.GroupBox36.Size = New System.Drawing.Size(360, 48)
        Me.GroupBox36.TabIndex = 84
        Me.GroupBox36.TabStop = False
        Me.GroupBox36.Text = "Datenselektion"
        Me.GroupBox36.Visible = False
        '
        'Label74
        '
        Me.Label74.Location = New System.Drawing.Point(8, 32)
        Me.Label74.Name = "Label74"
        Me.Label74.Size = New System.Drawing.Size(48, 32)
        Me.Label74.TabIndex = 48
        Me.Label74.Text = "Valuta-Datum"
        '
        'DateTimePicker25
        '
        Me.DateTimePicker25.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker25.Location = New System.Drawing.Point(264, 328)
        Me.DateTimePicker25.Name = "DateTimePicker25"
        Me.DateTimePicker25.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker25.TabIndex = 46
        Me.DateTimePicker25.TabStop = False
        Me.DateTimePicker25.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        Me.DateTimePicker25.Visible = False
        '
        'GroupBox37
        '
        Me.GroupBox37.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox37.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button40, Me.Button41, Me.Label75, Me.Label76, Me.CheckBox17, Me.CheckBox18, Me.TextBox31, Me.Label77, Me.Label78, Me.Label79, Me.ComboBox5, Me.Label80, Me.Label81, Me.TextBox32, Me.ComboBox7, Me.TextBox33, Me.DateTimePicker26, Me.Label82, Me.DateTimePicker27})
        Me.GroupBox37.Location = New System.Drawing.Point(0, 8)
        Me.GroupBox37.Name = "GroupBox37"
        Me.GroupBox37.Size = New System.Drawing.Size(280, 88)
        Me.GroupBox37.TabIndex = 83
        Me.GroupBox37.TabStop = False
        Me.GroupBox37.Text = "Datumsselektion"
        '
        'Button40
        '
        Me.Button40.Image = CType(resources.GetObject("Button40.Image"), System.Drawing.Bitmap)
        Me.Button40.Location = New System.Drawing.Point(308, 49)
        Me.Button40.Name = "Button40"
        Me.Button40.Size = New System.Drawing.Size(32, 24)
        Me.Button40.TabIndex = 97
        '
        'Button41
        '
        Me.Button41.Image = CType(resources.GetObject("Button41.Image"), System.Drawing.Bitmap)
        Me.Button41.Location = New System.Drawing.Point(308, 25)
        Me.Button41.Name = "Button41"
        Me.Button41.Size = New System.Drawing.Size(32, 24)
        Me.Button41.TabIndex = 96
        '
        'Label75
        '
        Me.Label75.Location = New System.Drawing.Point(216, 80)
        Me.Label75.Name = "Label75"
        Me.Label75.TabIndex = 95
        Me.Label75.Text = "Label26"
        Me.Label75.Visible = False
        '
        'Label76
        '
        Me.Label76.Location = New System.Drawing.Point(88, 80)
        Me.Label76.Name = "Label76"
        Me.Label76.TabIndex = 94
        Me.Label76.Text = "Label26"
        Me.Label76.Visible = False
        '
        'CheckBox17
        '
        Me.CheckBox17.Location = New System.Drawing.Point(200, 48)
        Me.CheckBox17.Name = "CheckBox17"
        Me.CheckBox17.TabIndex = 93
        Me.CheckBox17.Text = "(rollend)"
        '
        'CheckBox18
        '
        Me.CheckBox18.Location = New System.Drawing.Point(200, 24)
        Me.CheckBox18.Name = "CheckBox18"
        Me.CheckBox18.Size = New System.Drawing.Size(96, 24)
        Me.CheckBox18.TabIndex = 92
        Me.CheckBox18.Text = "(rollend)"
        '
        'TextBox31
        '
        Me.TextBox31.BackColor = System.Drawing.Color.White
        Me.TextBox31.ForeColor = System.Drawing.Color.Black
        Me.TextBox31.Location = New System.Drawing.Point(96, 24)
        Me.TextBox31.Name = "TextBox31"
        Me.TextBox31.ReadOnly = True
        Me.TextBox31.Size = New System.Drawing.Size(79, 20)
        Me.TextBox31.TabIndex = 54
        Me.TextBox31.Text = ""
        '
        'Label77
        '
        Me.Label77.Location = New System.Drawing.Point(56, 48)
        Me.Label77.Name = "Label77"
        Me.Label77.Size = New System.Drawing.Size(40, 23)
        Me.Label77.TabIndex = 91
        Me.Label77.Text = "bis"
        '
        'Label78
        '
        Me.Label78.Location = New System.Drawing.Point(56, 24)
        Me.Label78.Name = "Label78"
        Me.Label78.Size = New System.Drawing.Size(40, 23)
        Me.Label78.TabIndex = 90
        Me.Label78.Text = "von"
        '
        'Label79
        '
        Me.Label79.Location = New System.Drawing.Point(240, 152)
        Me.Label79.Name = "Label79"
        Me.Label79.Size = New System.Drawing.Size(96, 16)
        Me.Label79.TabIndex = 89
        Me.Label79.Text = "(19.12.2003)"
        Me.Label79.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.Label79.Visible = False
        '
        'ComboBox5
        '
        Me.ComboBox5.ItemHeight = 13
        Me.ComboBox5.Items.AddRange(New Object() {"(heute)", "(heute-1)", "(heute-2)", "(heute-3)", "(heute-4)", "(heute-5)", "(heute-6)", "(heute-7)", "(heute-8)", "(heute-9)", "(heute-10)", "(heute-11)", "(heute-12)", "(heute-13)", "(heute-14)", "(heute-15)", "(heute-16)", "(heute-17)", "(heute-18)", "(heute-19)", "(heute-20)", "(heute-21)", "(heute-22)", "(heute-23)", "(heute-24)", "(heute-25)", "(heute-26)", "(heute-27)", "(heute-28)", "(heute-29)", "(heute-30)"})
        Me.ComboBox5.Location = New System.Drawing.Point(240, 128)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(115, 21)
        Me.ComboBox5.TabIndex = 3
        Me.ComboBox5.Text = "ComboBox6"
        Me.ComboBox5.Visible = False
        '
        'Label80
        '
        Me.Label80.Location = New System.Drawing.Point(8, 128)
        Me.Label80.Name = "Label80"
        Me.Label80.Size = New System.Drawing.Size(72, 23)
        Me.Label80.TabIndex = 52
        Me.Label80.Text = "Archivierung"
        Me.Label80.Visible = False
        '
        'Label81
        '
        Me.Label81.Location = New System.Drawing.Point(160, 128)
        Me.Label81.Name = "Label81"
        Me.Label81.Size = New System.Drawing.Size(72, 21)
        Me.Label81.TabIndex = 79
        Me.Label81.Visible = False
        '
        'TextBox32
        '
        Me.TextBox32.BackColor = System.Drawing.Color.White
        Me.TextBox32.Enabled = False
        Me.TextBox32.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox32.Location = New System.Drawing.Point(240, 128)
        Me.TextBox32.Name = "TextBox32"
        Me.TextBox32.ReadOnly = True
        Me.TextBox32.Size = New System.Drawing.Size(79, 20)
        Me.TextBox32.TabIndex = 58
        Me.TextBox32.Text = "TextBox4"
        Me.TextBox32.Visible = False
        '
        'ComboBox7
        '
        Me.ComboBox7.ItemHeight = 13
        Me.ComboBox7.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
        Me.ComboBox7.Location = New System.Drawing.Point(80, 128)
        Me.ComboBox7.Name = "ComboBox7"
        Me.ComboBox7.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox7.TabIndex = 71
        Me.ComboBox7.Text = "HostTag3"
        Me.ComboBox7.Visible = False
        '
        'TextBox33
        '
        Me.TextBox33.BackColor = System.Drawing.Color.White
        Me.TextBox33.ForeColor = System.Drawing.Color.Black
        Me.TextBox33.Location = New System.Drawing.Point(96, 48)
        Me.TextBox33.Name = "TextBox33"
        Me.TextBox33.ReadOnly = True
        Me.TextBox33.Size = New System.Drawing.Size(79, 20)
        Me.TextBox33.TabIndex = 56
        Me.TextBox33.Text = ""
        '
        'DateTimePicker26
        '
        Me.DateTimePicker26.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker26.Location = New System.Drawing.Point(96, 48)
        Me.DateTimePicker26.Name = "DateTimePicker26"
        Me.DateTimePicker26.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker26.TabIndex = 44
        Me.DateTimePicker26.TabStop = False
        Me.DateTimePicker26.Value = New Date(2004, 1, 14, 18, 49, 59, 203)
        '
        'Label82
        '
        Me.Label82.Location = New System.Drawing.Point(160, 72)
        Me.Label82.Name = "Label82"
        Me.Label82.Size = New System.Drawing.Size(72, 21)
        Me.Label82.TabIndex = 78
        Me.Label82.Visible = False
        '
        'DateTimePicker27
        '
        Me.DateTimePicker27.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker27.Location = New System.Drawing.Point(96, 24)
        Me.DateTimePicker27.Name = "DateTimePicker27"
        Me.DateTimePicker27.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker27.TabIndex = 42
        Me.DateTimePicker27.TabStop = False
        Me.DateTimePicker27.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        '
        'Label83
        '
        Me.Label83.Location = New System.Drawing.Point(304, 456)
        Me.Label83.Name = "Label83"
        Me.Label83.Size = New System.Drawing.Size(40, 23)
        Me.Label83.TabIndex = 70
        Me.Label83.Text = "Tagen"
        Me.Label83.Visible = False
        '
        'Label84
        '
        Me.Label84.Location = New System.Drawing.Point(304, 432)
        Me.Label84.Name = "Label84"
        Me.Label84.Size = New System.Drawing.Size(40, 23)
        Me.Label84.TabIndex = 69
        Me.Label84.Text = "Tagen"
        Me.Label84.Visible = False
        '
        'Label85
        '
        Me.Label85.Location = New System.Drawing.Point(80, 456)
        Me.Label85.Name = "Label85"
        Me.Label85.Size = New System.Drawing.Size(160, 23)
        Me.Label85.TabIndex = 67
        Me.Label85.Text = "Mutationsdatum in den letzen "
        Me.Label85.Visible = False
        '
        'Label86
        '
        Me.Label86.Location = New System.Drawing.Point(80, 432)
        Me.Label86.Name = "Label86"
        Me.Label86.Size = New System.Drawing.Size(160, 23)
        Me.Label86.TabIndex = 66
        Me.Label86.Text = "Erstellungsdatum in den letzen"
        Me.Label86.Visible = False
        '
        'CheckBox19
        '
        Me.CheckBox19.Location = New System.Drawing.Point(16, 464)
        Me.CheckBox19.Name = "CheckBox19"
        Me.CheckBox19.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox19.TabIndex = 64
        Me.CheckBox19.Visible = False
        '
        'CheckBox20
        '
        Me.CheckBox20.Location = New System.Drawing.Point(16, 440)
        Me.CheckBox20.Name = "CheckBox20"
        Me.CheckBox20.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox20.TabIndex = 62
        Me.CheckBox20.Visible = False
        '
        'CheckBox21
        '
        Me.CheckBox21.Location = New System.Drawing.Point(16, 416)
        Me.CheckBox21.Name = "CheckBox21"
        Me.CheckBox21.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox21.TabIndex = 60
        Me.CheckBox21.Visible = False
        '
        'TextBox34
        '
        Me.TextBox34.BackColor = System.Drawing.Color.White
        Me.TextBox34.Enabled = False
        Me.TextBox34.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox34.Location = New System.Drawing.Point(160, 464)
        Me.TextBox34.Name = "TextBox34"
        Me.TextBox34.ReadOnly = True
        Me.TextBox34.Size = New System.Drawing.Size(80, 20)
        Me.TextBox34.TabIndex = 59
        Me.TextBox34.Text = "TextBox4"
        Me.TextBox34.Visible = False
        '
        'TextBox35
        '
        Me.TextBox35.BackColor = System.Drawing.Color.White
        Me.TextBox35.Enabled = False
        Me.TextBox35.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox35.Location = New System.Drawing.Point(160, 440)
        Me.TextBox35.Name = "TextBox35"
        Me.TextBox35.ReadOnly = True
        Me.TextBox35.Size = New System.Drawing.Size(80, 20)
        Me.TextBox35.TabIndex = 57
        Me.TextBox35.Text = "TextBox4"
        Me.TextBox35.Visible = False
        '
        'TextBox36
        '
        Me.TextBox36.BackColor = System.Drawing.Color.White
        Me.TextBox36.Enabled = False
        Me.TextBox36.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox36.Location = New System.Drawing.Point(160, 416)
        Me.TextBox36.Name = "TextBox36"
        Me.TextBox36.ReadOnly = True
        Me.TextBox36.Size = New System.Drawing.Size(80, 20)
        Me.TextBox36.TabIndex = 55
        Me.TextBox36.Text = "TextBox4"
        Me.TextBox36.Visible = False
        '
        'Label87
        '
        Me.Label87.Location = New System.Drawing.Point(48, 464)
        Me.Label87.Name = "Label87"
        Me.Label87.TabIndex = 53
        Me.Label87.Text = "Archivierung bis"
        Me.Label87.Visible = False
        '
        'Label88
        '
        Me.Label88.Location = New System.Drawing.Point(48, 440)
        Me.Label88.Name = "Label88"
        Me.Label88.Size = New System.Drawing.Size(96, 23)
        Me.Label88.TabIndex = 51
        Me.Label88.Text = "Mutation bis"
        Me.Label88.Visible = False
        '
        'Label89
        '
        Me.Label89.Location = New System.Drawing.Point(48, 416)
        Me.Label89.Name = "Label89"
        Me.Label89.Size = New System.Drawing.Size(96, 23)
        Me.Label89.TabIndex = 49
        Me.Label89.Text = "Erstellung bis"
        Me.Label89.Visible = False
        '
        'DateTimePicker28
        '
        Me.DateTimePicker28.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker28.Location = New System.Drawing.Point(160, 464)
        Me.DateTimePicker28.Name = "DateTimePicker28"
        Me.DateTimePicker28.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker28.TabIndex = 47
        Me.DateTimePicker28.TabStop = False
        Me.DateTimePicker28.Value = New Date(2004, 1, 14, 18, 49, 59, 312)
        Me.DateTimePicker28.Visible = False
        '
        'DateTimePicker29
        '
        Me.DateTimePicker29.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker29.Location = New System.Drawing.Point(160, 440)
        Me.DateTimePicker29.Name = "DateTimePicker29"
        Me.DateTimePicker29.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker29.TabIndex = 45
        Me.DateTimePicker29.TabStop = False
        Me.DateTimePicker29.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker29.Visible = False
        '
        'DateTimePicker30
        '
        Me.DateTimePicker30.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker30.Location = New System.Drawing.Point(160, 416)
        Me.DateTimePicker30.Name = "DateTimePicker30"
        Me.DateTimePicker30.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker30.TabIndex = 43
        Me.DateTimePicker30.TabStop = False
        Me.DateTimePicker30.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker30.Visible = False
        '
        'Button42
        '
        Me.Button42.Location = New System.Drawing.Point(344, 48)
        Me.Button42.Name = "Button42"
        Me.Button42.Size = New System.Drawing.Size(16, 16)
        Me.Button42.TabIndex = 74
        '
        'Button43
        '
        Me.Button43.Location = New System.Drawing.Point(344, 80)
        Me.Button43.Name = "Button43"
        Me.Button43.Size = New System.Drawing.Size(16, 16)
        Me.Button43.TabIndex = 75
        '
        'Button44
        '
        Me.Button44.Location = New System.Drawing.Point(360, 336)
        Me.Button44.Name = "Button44"
        Me.Button44.Size = New System.Drawing.Size(16, 16)
        Me.Button44.TabIndex = 76
        Me.Button44.Visible = False
        '
        'Panel10
        '
        Me.Panel10.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBGrid2, Me.Button45, Me.Label90, Me.TextBox37, Me.Label91, Me.TextBox38, Me.Label92, Me.TextBox39})
        Me.Panel10.Location = New System.Drawing.Point(256, 432)
        Me.Panel10.Name = "Panel10"
        Me.Panel10.Size = New System.Drawing.Size(24, 40)
        Me.Panel10.TabIndex = 3
        Me.Panel10.Visible = False
        '
        'C1TrueDBGrid2
        '
        Me.C1TrueDBGrid2.AllowFilter = True
        Me.C1TrueDBGrid2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.C1TrueDBGrid2.AllowSort = True
        Me.C1TrueDBGrid2.AllowUpdate = False
        Me.C1TrueDBGrid2.AllowUpdateOnBlur = False
        Me.C1TrueDBGrid2.AlternatingRows = True
        Me.C1TrueDBGrid2.CaptionHeight = 17
        Me.C1TrueDBGrid2.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.C1TrueDBGrid2.CollapseColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid2.ContextMenu = Me.CTMenuErsteller
        Me.C1TrueDBGrid2.DataChanged = False
        Me.C1TrueDBGrid2.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.C1TrueDBGrid2.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.C1TrueDBGrid2.ExpandColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid2.FetchRowStyles = True
        Me.C1TrueDBGrid2.FilterBar = True
        Me.C1TrueDBGrid2.GroupByCaption = "Drag a column header here to group by that column"
        Me.C1TrueDBGrid2.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
        Me.C1TrueDBGrid2.Location = New System.Drawing.Point(0, -360)
        Me.C1TrueDBGrid2.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.C1TrueDBGrid2.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.C1TrueDBGrid2.Name = "C1TrueDBGrid2"
        Me.C1TrueDBGrid2.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid2.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.C1TrueDBGrid2.PreviewInfo.ZoomFactor = 75
        Me.C1TrueDBGrid2.PrintInfo.ShowOptionsDialog = False
        Me.C1TrueDBGrid2.RecordSelectorWidth = 16
        GridLines2.Color = System.Drawing.Color.DarkGray
        GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.C1TrueDBGrid2.RowDivider = GridLines2
        Me.C1TrueDBGrid2.RowHeight = 15
        Me.C1TrueDBGrid2.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.C1TrueDBGrid2.ScrollTips = False
        Me.C1TrueDBGrid2.Size = New System.Drawing.Size(24, 400)
        Me.C1TrueDBGrid2.TabIndex = 17
        Me.C1TrueDBGrid2.Text = "C1TrueDBGrid1"
        Me.C1TrueDBGrid2.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
        "r{}Caption{AlignHorz:Center;}Normal{Font:Microsoft Sans Serif, 8.25pt;}Highlight" & _
        "Row{ForeColor:HighlightText;BackColor:Highlight;}Style9{}OddRow{BackColor:Silver" & _
        ";}RecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Border:Ra" & _
        "ised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{AlignH" & _
        "orz:Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1T" & _
        "rueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" Column" & _
        "CaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" FilterBar=""True" & _
        """ MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" V" & _
        "erticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 20, 396</Clie" & _
        "ntRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
        "ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
        "e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
        "ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
        "t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
        "><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
        """Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
        "Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
        "Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" />" & _
        "<Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Sty" & _
        "le parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Styl" & _
        "e parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style pa" & _
        "rent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style p" & _
        "arent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Styl" & _
        "e parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedS" & _
        "tyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><" & _
        "DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 20, 396</ClientArea>" & _
        "</Blob>"
        '
        'Button45
        '
        Me.Button45.Image = CType(resources.GetObject("Button45.Image"), System.Drawing.Bitmap)
        Me.Button45.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button45.Location = New System.Drawing.Point(288, 32)
        Me.Button45.Name = "Button45"
        Me.Button45.Size = New System.Drawing.Size(72, 40)
        Me.Button45.TabIndex = 16
        Me.Button45.Text = "&Suchen"
        Me.Button45.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label90
        '
        Me.Label90.Location = New System.Drawing.Point(8, 64)
        Me.Label90.Name = "Label90"
        Me.Label90.Size = New System.Drawing.Size(72, 23)
        Me.Label90.TabIndex = 15
        Me.Label90.Text = "Freitext"
        '
        'TextBox37
        '
        Me.TextBox37.Location = New System.Drawing.Point(88, 64)
        Me.TextBox37.Name = "TextBox37"
        Me.TextBox37.Size = New System.Drawing.Size(160, 20)
        Me.TextBox37.TabIndex = 14
        Me.TextBox37.Text = ""
        '
        'Label91
        '
        Me.Label91.Location = New System.Drawing.Point(8, 40)
        Me.Label91.Name = "Label91"
        Me.Label91.Size = New System.Drawing.Size(72, 23)
        Me.Label91.TabIndex = 13
        Me.Label91.Text = "Kurzname"
        '
        'TextBox38
        '
        Me.TextBox38.Location = New System.Drawing.Point(88, 40)
        Me.TextBox38.Name = "TextBox38"
        Me.TextBox38.Size = New System.Drawing.Size(160, 20)
        Me.TextBox38.TabIndex = 12
        Me.TextBox38.Text = ""
        '
        'Label92
        '
        Me.Label92.Location = New System.Drawing.Point(8, 16)
        Me.Label92.Name = "Label92"
        Me.Label92.Size = New System.Drawing.Size(72, 23)
        Me.Label92.TabIndex = 11
        Me.Label92.Text = "Partner-Nr."
        '
        'TextBox39
        '
        Me.TextBox39.Location = New System.Drawing.Point(88, 16)
        Me.TextBox39.Name = "TextBox39"
        Me.TextBox39.Size = New System.Drawing.Size(160, 20)
        Me.TextBox39.TabIndex = 10
        Me.TextBox39.Text = ""
        '
        'GroupBox30
        '
        Me.GroupBox30.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox30.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtdatum3zv, Me.txtdatum4zv, Me.txtdatum2zv, Me.cbzvrollend1, Me.Label56, Me.DateTimePicker19, Me.Label57, Me.Label58, Me.cbzvrollend4, Me.cbzvrollend2, Me.Label59, Me.txtdatum1zv, Me.Label60, Me.cbzvrollend3, Me.Label61, Me.textdatum1zv, Me.textdatum2zv, Me.textdatum3zv, Me.textdatum4zv, Me.DateTimePicker20, Me.DateTimePicker21, Me.DateTimePicker22, Me.Button32, Me.Button33})
        Me.GroupBox30.Location = New System.Drawing.Point(8, 16)
        Me.GroupBox30.Name = "GroupBox30"
        Me.GroupBox30.Size = New System.Drawing.Size(280, 128)
        Me.GroupBox30.TabIndex = 83
        Me.GroupBox30.TabStop = False
        Me.GroupBox30.Text = "Datumsselektion"
        '
        'txtdatum3zv
        '
        Me.txtdatum3zv.BackColor = System.Drawing.Color.White
        Me.txtdatum3zv.Enabled = False
        Me.txtdatum3zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum3zv.Location = New System.Drawing.Point(112, 80)
        Me.txtdatum3zv.Name = "txtdatum3zv"
        Me.txtdatum3zv.ReadOnly = True
        Me.txtdatum3zv.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum3zv.TabIndex = 108
        Me.txtdatum3zv.Text = ""
        '
        'txtdatum4zv
        '
        Me.txtdatum4zv.BackColor = System.Drawing.Color.White
        Me.txtdatum4zv.Enabled = False
        Me.txtdatum4zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum4zv.Location = New System.Drawing.Point(112, 104)
        Me.txtdatum4zv.Name = "txtdatum4zv"
        Me.txtdatum4zv.ReadOnly = True
        Me.txtdatum4zv.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum4zv.TabIndex = 110
        Me.txtdatum4zv.Text = ""
        '
        'txtdatum2zv
        '
        Me.txtdatum2zv.BackColor = System.Drawing.Color.White
        Me.txtdatum2zv.Enabled = False
        Me.txtdatum2zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum2zv.Location = New System.Drawing.Point(112, 48)
        Me.txtdatum2zv.Name = "txtdatum2zv"
        Me.txtdatum2zv.ReadOnly = True
        Me.txtdatum2zv.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum2zv.TabIndex = 107
        Me.txtdatum2zv.Text = ""
        '
        'cbzvrollend1
        '
        Me.cbzvrollend1.Enabled = False
        Me.cbzvrollend1.Location = New System.Drawing.Point(216, 24)
        Me.cbzvrollend1.Name = "cbzvrollend1"
        Me.cbzvrollend1.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend1.TabIndex = 111
        Me.cbzvrollend1.Text = "(rollend)"
        '
        'Label56
        '
        Me.Label56.Location = New System.Drawing.Point(8, 80)
        Me.Label56.Name = "Label56"
        Me.Label56.Size = New System.Drawing.Size(64, 48)
        Me.Label56.TabIndex = 105
        Me.Label56.Text = "Archivie-rung"
        '
        'DateTimePicker19
        '
        Me.DateTimePicker19.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker19.Location = New System.Drawing.Point(112, 80)
        Me.DateTimePicker19.Name = "DateTimePicker19"
        Me.DateTimePicker19.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker19.TabIndex = 102
        Me.DateTimePicker19.TabStop = False
        Me.DateTimePicker19.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'Label57
        '
        Me.Label57.Location = New System.Drawing.Point(72, 80)
        Me.Label57.Name = "Label57"
        Me.Label57.Size = New System.Drawing.Size(32, 23)
        Me.Label57.TabIndex = 115
        Me.Label57.Text = "von"
        '
        'Label58
        '
        Me.Label58.Location = New System.Drawing.Point(72, 104)
        Me.Label58.Name = "Label58"
        Me.Label58.Size = New System.Drawing.Size(32, 23)
        Me.Label58.TabIndex = 116
        Me.Label58.Text = "bis"
        '
        'cbzvrollend4
        '
        Me.cbzvrollend4.Enabled = False
        Me.cbzvrollend4.Location = New System.Drawing.Point(216, 104)
        Me.cbzvrollend4.Name = "cbzvrollend4"
        Me.cbzvrollend4.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend4.TabIndex = 118
        Me.cbzvrollend4.Text = "(rollend)"
        '
        'cbzvrollend2
        '
        Me.cbzvrollend2.Enabled = False
        Me.cbzvrollend2.Location = New System.Drawing.Point(216, 48)
        Me.cbzvrollend2.Name = "cbzvrollend2"
        Me.cbzvrollend2.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend2.TabIndex = 112
        Me.cbzvrollend2.Text = "(rollend)"
        '
        'Label59
        '
        Me.Label59.Location = New System.Drawing.Point(8, 24)
        Me.Label59.Name = "Label59"
        Me.Label59.Size = New System.Drawing.Size(56, 23)
        Me.Label59.TabIndex = 104
        Me.Label59.Text = "Valuta"
        '
        'txtdatum1zv
        '
        Me.txtdatum1zv.BackColor = System.Drawing.Color.White
        Me.txtdatum1zv.Enabled = False
        Me.txtdatum1zv.ForeColor = System.Drawing.Color.Black
        Me.txtdatum1zv.Location = New System.Drawing.Point(112, 24)
        Me.txtdatum1zv.Name = "txtdatum1zv"
        Me.txtdatum1zv.ReadOnly = True
        Me.txtdatum1zv.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum1zv.TabIndex = 106
        Me.txtdatum1zv.Text = ""
        '
        'Label60
        '
        Me.Label60.Location = New System.Drawing.Point(72, 48)
        Me.Label60.Name = "Label60"
        Me.Label60.Size = New System.Drawing.Size(32, 23)
        Me.Label60.TabIndex = 109
        Me.Label60.Text = "bis"
        '
        'cbzvrollend3
        '
        Me.cbzvrollend3.Enabled = False
        Me.cbzvrollend3.Location = New System.Drawing.Point(216, 80)
        Me.cbzvrollend3.Name = "cbzvrollend3"
        Me.cbzvrollend3.Size = New System.Drawing.Size(72, 24)
        Me.cbzvrollend3.TabIndex = 117
        Me.cbzvrollend3.Text = "(rollend)"
        '
        'Label61
        '
        Me.Label61.Location = New System.Drawing.Point(72, 24)
        Me.Label61.Name = "Label61"
        Me.Label61.Size = New System.Drawing.Size(32, 23)
        Me.Label61.TabIndex = 99
        Me.Label61.Text = "von"
        '
        'textdatum1zv
        '
        Me.textdatum1zv.Enabled = False
        Me.textdatum1zv.Location = New System.Drawing.Point(224, 24)
        Me.textdatum1zv.Name = "textdatum1zv"
        Me.textdatum1zv.TabIndex = 113
        Me.textdatum1zv.Visible = False
        '
        'textdatum2zv
        '
        Me.textdatum2zv.Enabled = False
        Me.textdatum2zv.Location = New System.Drawing.Point(224, 48)
        Me.textdatum2zv.Name = "textdatum2zv"
        Me.textdatum2zv.TabIndex = 114
        Me.textdatum2zv.Visible = False
        '
        'textdatum3zv
        '
        Me.textdatum3zv.Enabled = False
        Me.textdatum3zv.Location = New System.Drawing.Point(224, 80)
        Me.textdatum3zv.Name = "textdatum3zv"
        Me.textdatum3zv.TabIndex = 119
        Me.textdatum3zv.Visible = False
        '
        'textdatum4zv
        '
        Me.textdatum4zv.Enabled = False
        Me.textdatum4zv.Location = New System.Drawing.Point(224, 104)
        Me.textdatum4zv.Name = "textdatum4zv"
        Me.textdatum4zv.TabIndex = 120
        Me.textdatum4zv.Visible = False
        '
        'DateTimePicker20
        '
        Me.DateTimePicker20.Format = System.Windows.Forms.DateTimePickerFormat.Custom
        Me.DateTimePicker20.Location = New System.Drawing.Point(112, 24)
        Me.DateTimePicker20.Name = "DateTimePicker20"
        Me.DateTimePicker20.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker20.TabIndex = 100
        Me.DateTimePicker20.TabStop = False
        Me.DateTimePicker20.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker21
        '
        Me.DateTimePicker21.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker21.Location = New System.Drawing.Point(112, 48)
        Me.DateTimePicker21.Name = "DateTimePicker21"
        Me.DateTimePicker21.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker21.TabIndex = 101
        Me.DateTimePicker21.TabStop = False
        Me.DateTimePicker21.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker22
        '
        Me.DateTimePicker22.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker22.Location = New System.Drawing.Point(112, 104)
        Me.DateTimePicker22.Name = "DateTimePicker22"
        Me.DateTimePicker22.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker22.TabIndex = 103
        Me.DateTimePicker22.TabStop = False
        Me.DateTimePicker22.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'Button32
        '
        Me.Button32.Image = CType(resources.GetObject("Button32.Image"), System.Drawing.Bitmap)
        Me.Button32.Location = New System.Drawing.Point(308, 49)
        Me.Button32.Name = "Button32"
        Me.Button32.Size = New System.Drawing.Size(32, 24)
        Me.Button32.TabIndex = 97
        '
        'Button33
        '
        Me.Button33.Image = CType(resources.GetObject("Button33.Image"), System.Drawing.Bitmap)
        Me.Button33.Location = New System.Drawing.Point(308, 25)
        Me.Button33.Name = "Button33"
        Me.Button33.Size = New System.Drawing.Size(32, 24)
        Me.Button33.TabIndex = 96
        '
        'GroupBox25
        '
        Me.GroupBox25.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox26, Me.GroupBox41})
        Me.GroupBox25.Location = New System.Drawing.Point(16, 344)
        Me.GroupBox25.Name = "GroupBox25"
        Me.GroupBox25.Size = New System.Drawing.Size(232, 16)
        Me.GroupBox25.TabIndex = 28
        Me.GroupBox25.TabStop = False
        Me.GroupBox25.Text = "Basis-Verträge"
        '
        'GroupBox26
        '
        Me.GroupBox26.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox27, Me.Panel7, Me.Panel8})
        Me.GroupBox26.Location = New System.Drawing.Point(592, 8)
        Me.GroupBox26.Name = "GroupBox26"
        Me.GroupBox26.Size = New System.Drawing.Size(296, 488)
        Me.GroupBox26.TabIndex = 10
        Me.GroupBox26.TabStop = False
        Me.GroupBox26.Text = "Host-Dokumente"
        '
        'GroupBox27
        '
        Me.GroupBox27.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeView3})
        Me.GroupBox27.Location = New System.Drawing.Point(8, 24)
        Me.GroupBox27.Name = "GroupBox27"
        Me.GroupBox27.Size = New System.Drawing.Size(280, 160)
        Me.GroupBox27.TabIndex = 8
        Me.GroupBox27.TabStop = False
        Me.GroupBox27.Text = "Dokumentart"
        '
        'TreeView3
        '
        Me.TreeView3.ImageIndex = -1
        Me.TreeView3.Location = New System.Drawing.Point(8, 16)
        Me.TreeView3.Name = "TreeView3"
        Me.TreeView3.SelectedImageIndex = -1
        Me.TreeView3.Size = New System.Drawing.Size(264, 136)
        Me.TreeView3.TabIndex = 6
        '
        'Panel7
        '
        Me.Panel7.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox28, Me.GroupBox29, Me.GroupBox38, Me.Label62, Me.CheckBox10, Me.GroupBox39, Me.Label63, Me.DateTimePicker23, Me.GroupBox40, Me.Label72, Me.Label96, Me.Label97, Me.Label98, Me.CheckBox13, Me.CheckBox14, Me.CheckBox15, Me.TextBox25, Me.TextBox26, Me.TextBox27, Me.Label99, Me.Label100, Me.Label101, Me.DateTimePicker32, Me.DateTimePicker33, Me.DateTimePicker34, Me.Button36, Me.Button47, Me.Button48})
        Me.Panel7.Location = New System.Drawing.Point(8, 192)
        Me.Panel7.Name = "Panel7"
        Me.Panel7.Size = New System.Drawing.Size(280, 104)
        Me.Panel7.TabIndex = 7
        '
        'GroupBox28
        '
        Me.GroupBox28.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox19, Me.Button29})
        Me.GroupBox28.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox28.Name = "GroupBox28"
        Me.GroupBox28.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox28.TabIndex = 91
        Me.GroupBox28.TabStop = False
        Me.GroupBox28.Text = "VV-Nummer extern"
        '
        'TextBox19
        '
        Me.TextBox19.Location = New System.Drawing.Point(8, 24)
        Me.TextBox19.Name = "TextBox19"
        Me.TextBox19.Size = New System.Drawing.Size(112, 20)
        Me.TextBox19.TabIndex = 87
        Me.TextBox19.Text = ""
        '
        'Button29
        '
        Me.Button29.Location = New System.Drawing.Point(128, 24)
        Me.Button29.Name = "Button29"
        Me.Button29.Size = New System.Drawing.Size(40, 23)
        Me.Button29.TabIndex = 88
        Me.Button29.Text = "&OK"
        '
        'GroupBox29
        '
        Me.GroupBox29.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox20, Me.Button30})
        Me.GroupBox29.Location = New System.Drawing.Point(8, 232)
        Me.GroupBox29.Name = "GroupBox29"
        Me.GroupBox29.Size = New System.Drawing.Size(360, 64)
        Me.GroupBox29.TabIndex = 90
        Me.GroupBox29.TabStop = False
        Me.GroupBox29.Text = "ISIN-Nummer"
        '
        'TextBox20
        '
        Me.TextBox20.Location = New System.Drawing.Point(8, 24)
        Me.TextBox20.Name = "TextBox20"
        Me.TextBox20.Size = New System.Drawing.Size(112, 20)
        Me.TextBox20.TabIndex = 88
        Me.TextBox20.Text = ""
        '
        'Button30
        '
        Me.Button30.Location = New System.Drawing.Point(128, 24)
        Me.Button30.Name = "Button30"
        Me.Button30.Size = New System.Drawing.Size(40, 23)
        Me.Button30.TabIndex = 89
        Me.Button30.Text = "&OK"
        '
        'GroupBox38
        '
        Me.GroupBox38.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox21, Me.Button31})
        Me.GroupBox38.Location = New System.Drawing.Point(8, 168)
        Me.GroupBox38.Name = "GroupBox38"
        Me.GroupBox38.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox38.TabIndex = 89
        Me.GroupBox38.TabStop = False
        Me.GroupBox38.Text = "Valoren-Nummer"
        '
        'TextBox21
        '
        Me.TextBox21.Location = New System.Drawing.Point(8, 24)
        Me.TextBox21.Name = "TextBox21"
        Me.TextBox21.Size = New System.Drawing.Size(112, 20)
        Me.TextBox21.TabIndex = 87
        Me.TextBox21.Text = ""
        '
        'Button31
        '
        Me.Button31.Location = New System.Drawing.Point(128, 24)
        Me.Button31.Name = "Button31"
        Me.Button31.Size = New System.Drawing.Size(40, 23)
        Me.Button31.TabIndex = 88
        Me.Button31.Text = "&OK"
        '
        'Label62
        '
        Me.Label62.Location = New System.Drawing.Point(80, 312)
        Me.Label62.Name = "Label62"
        Me.Label62.Size = New System.Drawing.Size(80, 23)
        Me.Label62.TabIndex = 86
        Me.Label62.Text = "ISIN-Nummer"
        Me.Label62.Visible = False
        '
        'CheckBox10
        '
        Me.CheckBox10.Location = New System.Drawing.Point(16, 376)
        Me.CheckBox10.Name = "CheckBox10"
        Me.CheckBox10.Size = New System.Drawing.Size(264, 24)
        Me.CheckBox10.TabIndex = 82
        Me.CheckBox10.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
        Me.CheckBox10.Visible = False
        '
        'GroupBox39
        '
        Me.GroupBox39.Location = New System.Drawing.Point(8, 360)
        Me.GroupBox39.Name = "GroupBox39"
        Me.GroupBox39.Size = New System.Drawing.Size(360, 48)
        Me.GroupBox39.TabIndex = 84
        Me.GroupBox39.TabStop = False
        Me.GroupBox39.Text = "Datenselektion"
        Me.GroupBox39.Visible = False
        '
        'Label63
        '
        Me.Label63.Location = New System.Drawing.Point(8, 32)
        Me.Label63.Name = "Label63"
        Me.Label63.Size = New System.Drawing.Size(48, 32)
        Me.Label63.TabIndex = 48
        Me.Label63.Text = "Valuta-Datum"
        '
        'DateTimePicker23
        '
        Me.DateTimePicker23.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker23.Location = New System.Drawing.Point(264, 328)
        Me.DateTimePicker23.Name = "DateTimePicker23"
        Me.DateTimePicker23.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker23.TabIndex = 46
        Me.DateTimePicker23.TabStop = False
        Me.DateTimePicker23.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        Me.DateTimePicker23.Visible = False
        '
        'GroupBox40
        '
        Me.GroupBox40.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox40.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button34, Me.Button35, Me.Label64, Me.Label65, Me.CheckBox11, Me.CheckBox12, Me.TextBox22, Me.Label66, Me.Label67, Me.Label68, Me.ComboBox3, Me.Label69, Me.Label70, Me.TextBox23, Me.ComboBox4, Me.TextBox24, Me.DateTimePicker24, Me.Label71, Me.DateTimePicker31})
        Me.GroupBox40.Location = New System.Drawing.Point(0, 8)
        Me.GroupBox40.Name = "GroupBox40"
        Me.GroupBox40.Size = New System.Drawing.Size(280, 88)
        Me.GroupBox40.TabIndex = 83
        Me.GroupBox40.TabStop = False
        Me.GroupBox40.Text = "Datumsselektion"
        '
        'Button34
        '
        Me.Button34.Image = CType(resources.GetObject("Button34.Image"), System.Drawing.Bitmap)
        Me.Button34.Location = New System.Drawing.Point(308, 49)
        Me.Button34.Name = "Button34"
        Me.Button34.Size = New System.Drawing.Size(32, 24)
        Me.Button34.TabIndex = 97
        '
        'Button35
        '
        Me.Button35.Image = CType(resources.GetObject("Button35.Image"), System.Drawing.Bitmap)
        Me.Button35.Location = New System.Drawing.Point(308, 25)
        Me.Button35.Name = "Button35"
        Me.Button35.Size = New System.Drawing.Size(32, 24)
        Me.Button35.TabIndex = 96
        '
        'Label64
        '
        Me.Label64.Location = New System.Drawing.Point(216, 80)
        Me.Label64.Name = "Label64"
        Me.Label64.TabIndex = 95
        Me.Label64.Text = "Label26"
        Me.Label64.Visible = False
        '
        'Label65
        '
        Me.Label65.Location = New System.Drawing.Point(88, 80)
        Me.Label65.Name = "Label65"
        Me.Label65.TabIndex = 94
        Me.Label65.Text = "Label26"
        Me.Label65.Visible = False
        '
        'CheckBox11
        '
        Me.CheckBox11.Location = New System.Drawing.Point(200, 48)
        Me.CheckBox11.Name = "CheckBox11"
        Me.CheckBox11.TabIndex = 93
        Me.CheckBox11.Text = "(rollend)"
        '
        'CheckBox12
        '
        Me.CheckBox12.Location = New System.Drawing.Point(200, 24)
        Me.CheckBox12.Name = "CheckBox12"
        Me.CheckBox12.Size = New System.Drawing.Size(96, 24)
        Me.CheckBox12.TabIndex = 92
        Me.CheckBox12.Text = "(rollend)"
        '
        'TextBox22
        '
        Me.TextBox22.BackColor = System.Drawing.Color.White
        Me.TextBox22.ForeColor = System.Drawing.Color.Black
        Me.TextBox22.Location = New System.Drawing.Point(96, 24)
        Me.TextBox22.Name = "TextBox22"
        Me.TextBox22.ReadOnly = True
        Me.TextBox22.Size = New System.Drawing.Size(79, 20)
        Me.TextBox22.TabIndex = 54
        Me.TextBox22.Text = ""
        '
        'Label66
        '
        Me.Label66.Location = New System.Drawing.Point(56, 48)
        Me.Label66.Name = "Label66"
        Me.Label66.Size = New System.Drawing.Size(40, 23)
        Me.Label66.TabIndex = 91
        Me.Label66.Text = "bis"
        '
        'Label67
        '
        Me.Label67.Location = New System.Drawing.Point(56, 24)
        Me.Label67.Name = "Label67"
        Me.Label67.Size = New System.Drawing.Size(40, 23)
        Me.Label67.TabIndex = 90
        Me.Label67.Text = "von"
        '
        'Label68
        '
        Me.Label68.Location = New System.Drawing.Point(240, 152)
        Me.Label68.Name = "Label68"
        Me.Label68.Size = New System.Drawing.Size(96, 16)
        Me.Label68.TabIndex = 89
        Me.Label68.Text = "(19.12.2003)"
        Me.Label68.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.Label68.Visible = False
        '
        'ComboBox3
        '
        Me.ComboBox3.ItemHeight = 13
        Me.ComboBox3.Items.AddRange(New Object() {"(heute)", "(heute-1)", "(heute-2)", "(heute-3)", "(heute-4)", "(heute-5)", "(heute-6)", "(heute-7)", "(heute-8)", "(heute-9)", "(heute-10)", "(heute-11)", "(heute-12)", "(heute-13)", "(heute-14)", "(heute-15)", "(heute-16)", "(heute-17)", "(heute-18)", "(heute-19)", "(heute-20)", "(heute-21)", "(heute-22)", "(heute-23)", "(heute-24)", "(heute-25)", "(heute-26)", "(heute-27)", "(heute-28)", "(heute-29)", "(heute-30)"})
        Me.ComboBox3.Location = New System.Drawing.Point(240, 128)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(115, 21)
        Me.ComboBox3.TabIndex = 3
        Me.ComboBox3.Text = "ComboBox6"
        Me.ComboBox3.Visible = False
        '
        'Label69
        '
        Me.Label69.Location = New System.Drawing.Point(8, 128)
        Me.Label69.Name = "Label69"
        Me.Label69.Size = New System.Drawing.Size(72, 23)
        Me.Label69.TabIndex = 52
        Me.Label69.Text = "Archivierung"
        Me.Label69.Visible = False
        '
        'Label70
        '
        Me.Label70.Location = New System.Drawing.Point(160, 128)
        Me.Label70.Name = "Label70"
        Me.Label70.Size = New System.Drawing.Size(72, 21)
        Me.Label70.TabIndex = 79
        Me.Label70.Visible = False
        '
        'TextBox23
        '
        Me.TextBox23.BackColor = System.Drawing.Color.White
        Me.TextBox23.Enabled = False
        Me.TextBox23.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox23.Location = New System.Drawing.Point(240, 128)
        Me.TextBox23.Name = "TextBox23"
        Me.TextBox23.ReadOnly = True
        Me.TextBox23.Size = New System.Drawing.Size(79, 20)
        Me.TextBox23.TabIndex = 58
        Me.TextBox23.Text = "TextBox4"
        Me.TextBox23.Visible = False
        '
        'ComboBox4
        '
        Me.ComboBox4.ItemHeight = 13
        Me.ComboBox4.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
        Me.ComboBox4.Location = New System.Drawing.Point(80, 128)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox4.TabIndex = 71
        Me.ComboBox4.Text = "HostTag3"
        Me.ComboBox4.Visible = False
        '
        'TextBox24
        '
        Me.TextBox24.BackColor = System.Drawing.Color.White
        Me.TextBox24.ForeColor = System.Drawing.Color.Black
        Me.TextBox24.Location = New System.Drawing.Point(96, 48)
        Me.TextBox24.Name = "TextBox24"
        Me.TextBox24.ReadOnly = True
        Me.TextBox24.Size = New System.Drawing.Size(79, 20)
        Me.TextBox24.TabIndex = 56
        Me.TextBox24.Text = ""
        '
        'DateTimePicker24
        '
        Me.DateTimePicker24.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker24.Location = New System.Drawing.Point(96, 48)
        Me.DateTimePicker24.Name = "DateTimePicker24"
        Me.DateTimePicker24.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker24.TabIndex = 44
        Me.DateTimePicker24.TabStop = False
        Me.DateTimePicker24.Value = New Date(2004, 1, 14, 18, 49, 59, 203)
        '
        'Label71
        '
        Me.Label71.Location = New System.Drawing.Point(160, 72)
        Me.Label71.Name = "Label71"
        Me.Label71.Size = New System.Drawing.Size(72, 21)
        Me.Label71.TabIndex = 78
        Me.Label71.Visible = False
        '
        'DateTimePicker31
        '
        Me.DateTimePicker31.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker31.Location = New System.Drawing.Point(96, 24)
        Me.DateTimePicker31.Name = "DateTimePicker31"
        Me.DateTimePicker31.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker31.TabIndex = 42
        Me.DateTimePicker31.TabStop = False
        Me.DateTimePicker31.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        '
        'Label72
        '
        Me.Label72.Location = New System.Drawing.Point(304, 456)
        Me.Label72.Name = "Label72"
        Me.Label72.Size = New System.Drawing.Size(40, 23)
        Me.Label72.TabIndex = 70
        Me.Label72.Text = "Tagen"
        Me.Label72.Visible = False
        '
        'Label96
        '
        Me.Label96.Location = New System.Drawing.Point(304, 432)
        Me.Label96.Name = "Label96"
        Me.Label96.Size = New System.Drawing.Size(40, 23)
        Me.Label96.TabIndex = 69
        Me.Label96.Text = "Tagen"
        Me.Label96.Visible = False
        '
        'Label97
        '
        Me.Label97.Location = New System.Drawing.Point(80, 456)
        Me.Label97.Name = "Label97"
        Me.Label97.Size = New System.Drawing.Size(160, 23)
        Me.Label97.TabIndex = 67
        Me.Label97.Text = "Mutationsdatum in den letzen "
        Me.Label97.Visible = False
        '
        'Label98
        '
        Me.Label98.Location = New System.Drawing.Point(80, 432)
        Me.Label98.Name = "Label98"
        Me.Label98.Size = New System.Drawing.Size(160, 23)
        Me.Label98.TabIndex = 66
        Me.Label98.Text = "Erstellungsdatum in den letzen"
        Me.Label98.Visible = False
        '
        'CheckBox13
        '
        Me.CheckBox13.Location = New System.Drawing.Point(16, 464)
        Me.CheckBox13.Name = "CheckBox13"
        Me.CheckBox13.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox13.TabIndex = 64
        Me.CheckBox13.Visible = False
        '
        'CheckBox14
        '
        Me.CheckBox14.Location = New System.Drawing.Point(16, 440)
        Me.CheckBox14.Name = "CheckBox14"
        Me.CheckBox14.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox14.TabIndex = 62
        Me.CheckBox14.Visible = False
        '
        'CheckBox15
        '
        Me.CheckBox15.Location = New System.Drawing.Point(16, 416)
        Me.CheckBox15.Name = "CheckBox15"
        Me.CheckBox15.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox15.TabIndex = 60
        Me.CheckBox15.Visible = False
        '
        'TextBox25
        '
        Me.TextBox25.BackColor = System.Drawing.Color.White
        Me.TextBox25.Enabled = False
        Me.TextBox25.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox25.Location = New System.Drawing.Point(160, 464)
        Me.TextBox25.Name = "TextBox25"
        Me.TextBox25.ReadOnly = True
        Me.TextBox25.Size = New System.Drawing.Size(80, 20)
        Me.TextBox25.TabIndex = 59
        Me.TextBox25.Text = "TextBox4"
        Me.TextBox25.Visible = False
        '
        'TextBox26
        '
        Me.TextBox26.BackColor = System.Drawing.Color.White
        Me.TextBox26.Enabled = False
        Me.TextBox26.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox26.Location = New System.Drawing.Point(160, 440)
        Me.TextBox26.Name = "TextBox26"
        Me.TextBox26.ReadOnly = True
        Me.TextBox26.Size = New System.Drawing.Size(80, 20)
        Me.TextBox26.TabIndex = 57
        Me.TextBox26.Text = "TextBox4"
        Me.TextBox26.Visible = False
        '
        'TextBox27
        '
        Me.TextBox27.BackColor = System.Drawing.Color.White
        Me.TextBox27.Enabled = False
        Me.TextBox27.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox27.Location = New System.Drawing.Point(160, 416)
        Me.TextBox27.Name = "TextBox27"
        Me.TextBox27.ReadOnly = True
        Me.TextBox27.Size = New System.Drawing.Size(80, 20)
        Me.TextBox27.TabIndex = 55
        Me.TextBox27.Text = "TextBox4"
        Me.TextBox27.Visible = False
        '
        'Label99
        '
        Me.Label99.Location = New System.Drawing.Point(48, 464)
        Me.Label99.Name = "Label99"
        Me.Label99.TabIndex = 53
        Me.Label99.Text = "Archivierung bis"
        Me.Label99.Visible = False
        '
        'Label100
        '
        Me.Label100.Location = New System.Drawing.Point(48, 440)
        Me.Label100.Name = "Label100"
        Me.Label100.Size = New System.Drawing.Size(96, 23)
        Me.Label100.TabIndex = 51
        Me.Label100.Text = "Mutation bis"
        Me.Label100.Visible = False
        '
        'Label101
        '
        Me.Label101.Location = New System.Drawing.Point(48, 416)
        Me.Label101.Name = "Label101"
        Me.Label101.Size = New System.Drawing.Size(96, 23)
        Me.Label101.TabIndex = 49
        Me.Label101.Text = "Erstellung bis"
        Me.Label101.Visible = False
        '
        'DateTimePicker32
        '
        Me.DateTimePicker32.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker32.Location = New System.Drawing.Point(160, 464)
        Me.DateTimePicker32.Name = "DateTimePicker32"
        Me.DateTimePicker32.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker32.TabIndex = 47
        Me.DateTimePicker32.TabStop = False
        Me.DateTimePicker32.Value = New Date(2004, 1, 14, 18, 49, 59, 312)
        Me.DateTimePicker32.Visible = False
        '
        'DateTimePicker33
        '
        Me.DateTimePicker33.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker33.Location = New System.Drawing.Point(160, 440)
        Me.DateTimePicker33.Name = "DateTimePicker33"
        Me.DateTimePicker33.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker33.TabIndex = 45
        Me.DateTimePicker33.TabStop = False
        Me.DateTimePicker33.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker33.Visible = False
        '
        'DateTimePicker34
        '
        Me.DateTimePicker34.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker34.Location = New System.Drawing.Point(160, 416)
        Me.DateTimePicker34.Name = "DateTimePicker34"
        Me.DateTimePicker34.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker34.TabIndex = 43
        Me.DateTimePicker34.TabStop = False
        Me.DateTimePicker34.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker34.Visible = False
        '
        'Button36
        '
        Me.Button36.Location = New System.Drawing.Point(344, 48)
        Me.Button36.Name = "Button36"
        Me.Button36.Size = New System.Drawing.Size(16, 16)
        Me.Button36.TabIndex = 74
        '
        'Button47
        '
        Me.Button47.Location = New System.Drawing.Point(344, 80)
        Me.Button47.Name = "Button47"
        Me.Button47.Size = New System.Drawing.Size(16, 16)
        Me.Button47.TabIndex = 75
        '
        'Button48
        '
        Me.Button48.Location = New System.Drawing.Point(360, 336)
        Me.Button48.Name = "Button48"
        Me.Button48.Size = New System.Drawing.Size(16, 16)
        Me.Button48.TabIndex = 76
        Me.Button48.Visible = False
        '
        'Panel8
        '
        Me.Panel8.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBGrid4, Me.Button49, Me.Label102, Me.TextBox43, Me.Label103, Me.TextBox44, Me.Label104, Me.TextBox45})
        Me.Panel8.Location = New System.Drawing.Point(256, 432)
        Me.Panel8.Name = "Panel8"
        Me.Panel8.Size = New System.Drawing.Size(24, 40)
        Me.Panel8.TabIndex = 3
        Me.Panel8.Visible = False
        '
        'C1TrueDBGrid4
        '
        Me.C1TrueDBGrid4.AllowFilter = True
        Me.C1TrueDBGrid4.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.C1TrueDBGrid4.AllowSort = True
        Me.C1TrueDBGrid4.AllowUpdate = False
        Me.C1TrueDBGrid4.AllowUpdateOnBlur = False
        Me.C1TrueDBGrid4.AlternatingRows = True
        Me.C1TrueDBGrid4.CaptionHeight = 17
        Me.C1TrueDBGrid4.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.C1TrueDBGrid4.CollapseColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid4.ContextMenu = Me.CTMenuErsteller
        Me.C1TrueDBGrid4.DataChanged = False
        Me.C1TrueDBGrid4.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.C1TrueDBGrid4.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.C1TrueDBGrid4.ExpandColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid4.FetchRowStyles = True
        Me.C1TrueDBGrid4.FilterBar = True
        Me.C1TrueDBGrid4.GroupByCaption = "Drag a column header here to group by that column"
        Me.C1TrueDBGrid4.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
        Me.C1TrueDBGrid4.Location = New System.Drawing.Point(0, -360)
        Me.C1TrueDBGrid4.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.C1TrueDBGrid4.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.C1TrueDBGrid4.Name = "C1TrueDBGrid4"
        Me.C1TrueDBGrid4.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid4.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.C1TrueDBGrid4.PreviewInfo.ZoomFactor = 75
        Me.C1TrueDBGrid4.PrintInfo.ShowOptionsDialog = False
        Me.C1TrueDBGrid4.RecordSelectorWidth = 16
        GridLines3.Color = System.Drawing.Color.DarkGray
        GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.C1TrueDBGrid4.RowDivider = GridLines3
        Me.C1TrueDBGrid4.RowHeight = 15
        Me.C1TrueDBGrid4.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.C1TrueDBGrid4.ScrollTips = False
        Me.C1TrueDBGrid4.Size = New System.Drawing.Size(24, 400)
        Me.C1TrueDBGrid4.TabIndex = 17
        Me.C1TrueDBGrid4.Text = "C1TrueDBGrid1"
        Me.C1TrueDBGrid4.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
        "r{}Caption{AlignHorz:Center;}Normal{Font:Microsoft Sans Serif, 8.25pt;}Highlight" & _
        "Row{ForeColor:HighlightText;BackColor:Highlight;}Style1{}OddRow{BackColor:Silver" & _
        ";}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:R" & _
        "aised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{AlignH" & _
        "orz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1T" & _
        "rueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" Column" & _
        "CaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" FilterBar=""True" & _
        """ MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" V" & _
        "erticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 20, 396</Clie" & _
        "ntRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
        "ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
        "e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
        "ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
        "t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
        "><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
        """Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
        "Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
        "Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" />" & _
        "<Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Sty" & _
        "le parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Styl" & _
        "e parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style pa" & _
        "rent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style p" & _
        "arent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Styl" & _
        "e parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedS" & _
        "tyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><" & _
        "DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 20, 396</ClientArea>" & _
        "</Blob>"
        '
        'Button49
        '
        Me.Button49.Image = CType(resources.GetObject("Button49.Image"), System.Drawing.Bitmap)
        Me.Button49.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button49.Location = New System.Drawing.Point(288, 32)
        Me.Button49.Name = "Button49"
        Me.Button49.Size = New System.Drawing.Size(72, 40)
        Me.Button49.TabIndex = 16
        Me.Button49.Text = "&Suchen"
        Me.Button49.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label102
        '
        Me.Label102.Location = New System.Drawing.Point(8, 64)
        Me.Label102.Name = "Label102"
        Me.Label102.Size = New System.Drawing.Size(72, 23)
        Me.Label102.TabIndex = 15
        Me.Label102.Text = "Freitext"
        '
        'TextBox43
        '
        Me.TextBox43.Location = New System.Drawing.Point(88, 64)
        Me.TextBox43.Name = "TextBox43"
        Me.TextBox43.Size = New System.Drawing.Size(160, 20)
        Me.TextBox43.TabIndex = 14
        Me.TextBox43.Text = ""
        '
        'Label103
        '
        Me.Label103.Location = New System.Drawing.Point(8, 40)
        Me.Label103.Name = "Label103"
        Me.Label103.Size = New System.Drawing.Size(72, 23)
        Me.Label103.TabIndex = 13
        Me.Label103.Text = "Kurzname"
        '
        'TextBox44
        '
        Me.TextBox44.Location = New System.Drawing.Point(88, 40)
        Me.TextBox44.Name = "TextBox44"
        Me.TextBox44.Size = New System.Drawing.Size(160, 20)
        Me.TextBox44.TabIndex = 12
        Me.TextBox44.Text = ""
        '
        'Label104
        '
        Me.Label104.Location = New System.Drawing.Point(8, 16)
        Me.Label104.Name = "Label104"
        Me.Label104.Size = New System.Drawing.Size(72, 23)
        Me.Label104.TabIndex = 11
        Me.Label104.Text = "Partner-Nr."
        '
        'TextBox45
        '
        Me.TextBox45.Location = New System.Drawing.Point(88, 16)
        Me.TextBox45.Name = "TextBox45"
        Me.TextBox45.Size = New System.Drawing.Size(160, 20)
        Me.TextBox45.TabIndex = 10
        Me.TextBox45.Text = ""
        '
        'GroupBox41
        '
        Me.GroupBox41.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox41.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtdatum4uvm, Me.txtdatum3uvm, Me.txtdatum2uvm, Me.cbuvmrollend1, Me.Label105, Me.DateTimePicker35, Me.Label106, Me.Label107, Me.cbuvmrollend4, Me.cbuvmrollend2, Me.Label108, Me.txtdatum1uvm, Me.Label109, Me.cbuvmrollend3, Me.Label110, Me.textdatum1uvm, Me.textdatum2uvm, Me.textdatum3uvm, Me.textdatum4uvm, Me.DateTimePicker36, Me.DateTimePicker37, Me.DateTimePicker38, Me.Button50, Me.Button51})
        Me.GroupBox41.Location = New System.Drawing.Point(8, 16)
        Me.GroupBox41.Name = "GroupBox41"
        Me.GroupBox41.Size = New System.Drawing.Size(280, 128)
        Me.GroupBox41.TabIndex = 83
        Me.GroupBox41.TabStop = False
        Me.GroupBox41.Text = "Datumsselektion"
        '
        'txtdatum4uvm
        '
        Me.txtdatum4uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum4uvm.Enabled = False
        Me.txtdatum4uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum4uvm.Location = New System.Drawing.Point(112, 104)
        Me.txtdatum4uvm.Name = "txtdatum4uvm"
        Me.txtdatum4uvm.ReadOnly = True
        Me.txtdatum4uvm.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum4uvm.TabIndex = 110
        Me.txtdatum4uvm.Text = ""
        '
        'txtdatum3uvm
        '
        Me.txtdatum3uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum3uvm.Enabled = False
        Me.txtdatum3uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum3uvm.Location = New System.Drawing.Point(112, 80)
        Me.txtdatum3uvm.Name = "txtdatum3uvm"
        Me.txtdatum3uvm.ReadOnly = True
        Me.txtdatum3uvm.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum3uvm.TabIndex = 108
        Me.txtdatum3uvm.Text = ""
        '
        'txtdatum2uvm
        '
        Me.txtdatum2uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum2uvm.Enabled = False
        Me.txtdatum2uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum2uvm.Location = New System.Drawing.Point(112, 48)
        Me.txtdatum2uvm.Name = "txtdatum2uvm"
        Me.txtdatum2uvm.ReadOnly = True
        Me.txtdatum2uvm.Size = New System.Drawing.Size(80, 20)
        Me.txtdatum2uvm.TabIndex = 107
        Me.txtdatum2uvm.Text = ""
        '
        'cbuvmrollend1
        '
        Me.cbuvmrollend1.Enabled = False
        Me.cbuvmrollend1.Location = New System.Drawing.Point(216, 24)
        Me.cbuvmrollend1.Name = "cbuvmrollend1"
        Me.cbuvmrollend1.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend1.TabIndex = 111
        Me.cbuvmrollend1.Text = "(rollend)"
        '
        'Label105
        '
        Me.Label105.Location = New System.Drawing.Point(8, 80)
        Me.Label105.Name = "Label105"
        Me.Label105.Size = New System.Drawing.Size(64, 32)
        Me.Label105.TabIndex = 105
        Me.Label105.Text = "Archivie-rung"
        '
        'DateTimePicker35
        '
        Me.DateTimePicker35.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker35.Location = New System.Drawing.Point(112, 80)
        Me.DateTimePicker35.Name = "DateTimePicker35"
        Me.DateTimePicker35.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker35.TabIndex = 102
        Me.DateTimePicker35.TabStop = False
        Me.DateTimePicker35.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'Label106
        '
        Me.Label106.Location = New System.Drawing.Point(72, 80)
        Me.Label106.Name = "Label106"
        Me.Label106.Size = New System.Drawing.Size(32, 23)
        Me.Label106.TabIndex = 115
        Me.Label106.Text = "von"
        '
        'Label107
        '
        Me.Label107.Location = New System.Drawing.Point(72, 104)
        Me.Label107.Name = "Label107"
        Me.Label107.Size = New System.Drawing.Size(32, 23)
        Me.Label107.TabIndex = 116
        Me.Label107.Text = "bis"
        '
        'cbuvmrollend4
        '
        Me.cbuvmrollend4.Enabled = False
        Me.cbuvmrollend4.Location = New System.Drawing.Point(216, 104)
        Me.cbuvmrollend4.Name = "cbuvmrollend4"
        Me.cbuvmrollend4.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend4.TabIndex = 118
        Me.cbuvmrollend4.Text = "(rollend)"
        '
        'cbuvmrollend2
        '
        Me.cbuvmrollend2.Enabled = False
        Me.cbuvmrollend2.Location = New System.Drawing.Point(216, 48)
        Me.cbuvmrollend2.Name = "cbuvmrollend2"
        Me.cbuvmrollend2.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend2.TabIndex = 112
        Me.cbuvmrollend2.Text = "(rollend)"
        '
        'Label108
        '
        Me.Label108.Location = New System.Drawing.Point(8, 24)
        Me.Label108.Name = "Label108"
        Me.Label108.Size = New System.Drawing.Size(56, 23)
        Me.Label108.TabIndex = 104
        Me.Label108.Text = "Erstellung"
        '
        'txtdatum1uvm
        '
        Me.txtdatum1uvm.BackColor = System.Drawing.Color.White
        Me.txtdatum1uvm.Enabled = False
        Me.txtdatum1uvm.ForeColor = System.Drawing.Color.Black
        Me.txtdatum1uvm.Location = New System.Drawing.Point(112, 24)
        Me.txtdatum1uvm.Name = "txtdatum1uvm"
        Me.txtdatum1uvm.ReadOnly = True
        Me.txtdatum1uvm.Size = New System.Drawing.Size(79, 20)
        Me.txtdatum1uvm.TabIndex = 106
        Me.txtdatum1uvm.Text = ""
        '
        'Label109
        '
        Me.Label109.Location = New System.Drawing.Point(72, 48)
        Me.Label109.Name = "Label109"
        Me.Label109.Size = New System.Drawing.Size(32, 23)
        Me.Label109.TabIndex = 109
        Me.Label109.Text = "bis"
        '
        'cbuvmrollend3
        '
        Me.cbuvmrollend3.Enabled = False
        Me.cbuvmrollend3.Location = New System.Drawing.Point(216, 80)
        Me.cbuvmrollend3.Name = "cbuvmrollend3"
        Me.cbuvmrollend3.Size = New System.Drawing.Size(72, 24)
        Me.cbuvmrollend3.TabIndex = 117
        Me.cbuvmrollend3.Text = "(rollend)"
        '
        'Label110
        '
        Me.Label110.Location = New System.Drawing.Point(72, 24)
        Me.Label110.Name = "Label110"
        Me.Label110.Size = New System.Drawing.Size(32, 23)
        Me.Label110.TabIndex = 99
        Me.Label110.Text = "von"
        '
        'textdatum1uvm
        '
        Me.textdatum1uvm.Enabled = False
        Me.textdatum1uvm.Location = New System.Drawing.Point(224, 24)
        Me.textdatum1uvm.Name = "textdatum1uvm"
        Me.textdatum1uvm.TabIndex = 113
        Me.textdatum1uvm.Visible = False
        '
        'textdatum2uvm
        '
        Me.textdatum2uvm.Enabled = False
        Me.textdatum2uvm.Location = New System.Drawing.Point(224, 48)
        Me.textdatum2uvm.Name = "textdatum2uvm"
        Me.textdatum2uvm.TabIndex = 114
        Me.textdatum2uvm.Visible = False
        '
        'textdatum3uvm
        '
        Me.textdatum3uvm.Enabled = False
        Me.textdatum3uvm.Location = New System.Drawing.Point(224, 80)
        Me.textdatum3uvm.Name = "textdatum3uvm"
        Me.textdatum3uvm.TabIndex = 119
        Me.textdatum3uvm.Visible = False
        '
        'textdatum4uvm
        '
        Me.textdatum4uvm.Enabled = False
        Me.textdatum4uvm.Location = New System.Drawing.Point(224, 104)
        Me.textdatum4uvm.Name = "textdatum4uvm"
        Me.textdatum4uvm.TabIndex = 120
        Me.textdatum4uvm.Visible = False
        '
        'DateTimePicker36
        '
        Me.DateTimePicker36.Format = System.Windows.Forms.DateTimePickerFormat.Custom
        Me.DateTimePicker36.Location = New System.Drawing.Point(112, 24)
        Me.DateTimePicker36.Name = "DateTimePicker36"
        Me.DateTimePicker36.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker36.TabIndex = 100
        Me.DateTimePicker36.TabStop = False
        Me.DateTimePicker36.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker37
        '
        Me.DateTimePicker37.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker37.Location = New System.Drawing.Point(112, 48)
        Me.DateTimePicker37.Name = "DateTimePicker37"
        Me.DateTimePicker37.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker37.TabIndex = 101
        Me.DateTimePicker37.TabStop = False
        Me.DateTimePicker37.Value = New Date(2004, 1, 14, 18, 49, 58, 750)
        '
        'DateTimePicker38
        '
        Me.DateTimePicker38.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker38.Location = New System.Drawing.Point(112, 104)
        Me.DateTimePicker38.Name = "DateTimePicker38"
        Me.DateTimePicker38.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker38.TabIndex = 103
        Me.DateTimePicker38.TabStop = False
        Me.DateTimePicker38.Value = New Date(2004, 1, 14, 18, 49, 58, 734)
        '
        'Button50
        '
        Me.Button50.Image = CType(resources.GetObject("Button50.Image"), System.Drawing.Bitmap)
        Me.Button50.Location = New System.Drawing.Point(308, 49)
        Me.Button50.Name = "Button50"
        Me.Button50.Size = New System.Drawing.Size(32, 24)
        Me.Button50.TabIndex = 97
        '
        'Button51
        '
        Me.Button51.Image = CType(resources.GetObject("Button51.Image"), System.Drawing.Bitmap)
        Me.Button51.Location = New System.Drawing.Point(308, 25)
        Me.Button51.Name = "Button51"
        Me.Button51.Size = New System.Drawing.Size(32, 24)
        Me.Button51.TabIndex = 96
        '
        'GroupBox14
        '
        Me.GroupBox14.Controls.AddRange(New System.Windows.Forms.Control() {Me.PnlPartner, Me.GroupBox17})
        Me.GroupBox14.Location = New System.Drawing.Point(648, 192)
        Me.GroupBox14.Name = "GroupBox14"
        Me.GroupBox14.Size = New System.Drawing.Size(216, 128)
        Me.GroupBox14.TabIndex = 10
        Me.GroupBox14.TabStop = False
        Me.GroupBox14.Text = "Host-Dokumente"
        Me.GroupBox14.Visible = False
        '
        'PnlPartner
        '
        Me.PnlPartner.Location = New System.Drawing.Point(256, 432)
        Me.PnlPartner.Name = "PnlPartner"
        Me.PnlPartner.Size = New System.Drawing.Size(24, 40)
        Me.PnlPartner.TabIndex = 3
        Me.PnlPartner.Visible = False
        '
        'GroupBox17
        '
        Me.GroupBox17.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox18, Me.Panel5, Me.Panel6})
        Me.GroupBox17.Location = New System.Drawing.Point(592, 8)
        Me.GroupBox17.Name = "GroupBox17"
        Me.GroupBox17.Size = New System.Drawing.Size(296, 488)
        Me.GroupBox17.TabIndex = 10
        Me.GroupBox17.TabStop = False
        Me.GroupBox17.Text = "Host-Dokumente"
        '
        'GroupBox18
        '
        Me.GroupBox18.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeView2})
        Me.GroupBox18.Location = New System.Drawing.Point(8, 24)
        Me.GroupBox18.Name = "GroupBox18"
        Me.GroupBox18.Size = New System.Drawing.Size(280, 160)
        Me.GroupBox18.TabIndex = 8
        Me.GroupBox18.TabStop = False
        Me.GroupBox18.Text = "Dokumentart"
        '
        'TreeView2
        '
        Me.TreeView2.ImageIndex = -1
        Me.TreeView2.Location = New System.Drawing.Point(8, 16)
        Me.TreeView2.Name = "TreeView2"
        Me.TreeView2.SelectedImageIndex = -1
        Me.TreeView2.Size = New System.Drawing.Size(264, 136)
        Me.TreeView2.TabIndex = 6
        '
        'Panel5
        '
        Me.Panel5.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox19, Me.GroupBox20, Me.GroupBox21, Me.Label26, Me.CheckBox1, Me.GroupBox22, Me.Label28, Me.DateTimePicker13, Me.GroupBox23, Me.Label49, Me.Label50, Me.Label51, Me.Label52, Me.CheckBox7, Me.CheckBox8, Me.CheckBox9, Me.TextBox16, Me.TextBox17, Me.TextBox18, Me.Label53, Me.Label54, Me.Label55, Me.DateTimePicker16, Me.DateTimePicker17, Me.DateTimePicker18, Me.Button26, Me.Button27, Me.Button28})
        Me.Panel5.Location = New System.Drawing.Point(8, 192)
        Me.Panel5.Name = "Panel5"
        Me.Panel5.Size = New System.Drawing.Size(280, 104)
        Me.Panel5.TabIndex = 7
        '
        'GroupBox19
        '
        Me.GroupBox19.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox10, Me.Button21})
        Me.GroupBox19.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox19.Name = "GroupBox19"
        Me.GroupBox19.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox19.TabIndex = 91
        Me.GroupBox19.TabStop = False
        Me.GroupBox19.Text = "VV-Nummer extern"
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(8, 24)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(112, 20)
        Me.TextBox10.TabIndex = 87
        Me.TextBox10.Text = ""
        '
        'Button21
        '
        Me.Button21.Location = New System.Drawing.Point(128, 24)
        Me.Button21.Name = "Button21"
        Me.Button21.Size = New System.Drawing.Size(40, 23)
        Me.Button21.TabIndex = 88
        Me.Button21.Text = "&OK"
        '
        'GroupBox20
        '
        Me.GroupBox20.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox11, Me.Button22})
        Me.GroupBox20.Location = New System.Drawing.Point(8, 232)
        Me.GroupBox20.Name = "GroupBox20"
        Me.GroupBox20.Size = New System.Drawing.Size(360, 64)
        Me.GroupBox20.TabIndex = 90
        Me.GroupBox20.TabStop = False
        Me.GroupBox20.Text = "ISIN-Nummer"
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(8, 24)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(112, 20)
        Me.TextBox11.TabIndex = 88
        Me.TextBox11.Text = ""
        '
        'Button22
        '
        Me.Button22.Location = New System.Drawing.Point(128, 24)
        Me.Button22.Name = "Button22"
        Me.Button22.Size = New System.Drawing.Size(40, 23)
        Me.Button22.TabIndex = 89
        Me.Button22.Text = "&OK"
        '
        'GroupBox21
        '
        Me.GroupBox21.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox12, Me.Button23})
        Me.GroupBox21.Location = New System.Drawing.Point(8, 168)
        Me.GroupBox21.Name = "GroupBox21"
        Me.GroupBox21.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox21.TabIndex = 89
        Me.GroupBox21.TabStop = False
        Me.GroupBox21.Text = "Valoren-Nummer"
        '
        'TextBox12
        '
        Me.TextBox12.Location = New System.Drawing.Point(8, 24)
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.Size = New System.Drawing.Size(112, 20)
        Me.TextBox12.TabIndex = 87
        Me.TextBox12.Text = ""
        '
        'Button23
        '
        Me.Button23.Location = New System.Drawing.Point(128, 24)
        Me.Button23.Name = "Button23"
        Me.Button23.Size = New System.Drawing.Size(40, 23)
        Me.Button23.TabIndex = 88
        Me.Button23.Text = "&OK"
        '
        'Label26
        '
        Me.Label26.Location = New System.Drawing.Point(80, 312)
        Me.Label26.Name = "Label26"
        Me.Label26.Size = New System.Drawing.Size(80, 23)
        Me.Label26.TabIndex = 86
        Me.Label26.Text = "ISIN-Nummer"
        Me.Label26.Visible = False
        '
        'CheckBox1
        '
        Me.CheckBox1.Location = New System.Drawing.Point(16, 376)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(264, 24)
        Me.CheckBox1.TabIndex = 82
        Me.CheckBox1.Text = "Partnerselektion inkl. Mitarbeiter- und VIP"
        Me.CheckBox1.Visible = False
        '
        'GroupBox22
        '
        Me.GroupBox22.Location = New System.Drawing.Point(8, 360)
        Me.GroupBox22.Name = "GroupBox22"
        Me.GroupBox22.Size = New System.Drawing.Size(360, 48)
        Me.GroupBox22.TabIndex = 84
        Me.GroupBox22.TabStop = False
        Me.GroupBox22.Text = "Datenselektion"
        Me.GroupBox22.Visible = False
        '
        'Label28
        '
        Me.Label28.Location = New System.Drawing.Point(8, 32)
        Me.Label28.Name = "Label28"
        Me.Label28.Size = New System.Drawing.Size(48, 32)
        Me.Label28.TabIndex = 48
        Me.Label28.Text = "Valuta-Datum"
        '
        'DateTimePicker13
        '
        Me.DateTimePicker13.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker13.Location = New System.Drawing.Point(264, 328)
        Me.DateTimePicker13.Name = "DateTimePicker13"
        Me.DateTimePicker13.Size = New System.Drawing.Size(96, 20)
        Me.DateTimePicker13.TabIndex = 46
        Me.DateTimePicker13.TabStop = False
        Me.DateTimePicker13.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        Me.DateTimePicker13.Visible = False
        '
        'GroupBox23
        '
        Me.GroupBox23.BackColor = System.Drawing.Color.Transparent
        Me.GroupBox23.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button24, Me.Button25, Me.Label41, Me.Label42, Me.CheckBox2, Me.CheckBox6, Me.TextBox13, Me.Label43, Me.Label44, Me.Label45, Me.ComboBox1, Me.Label46, Me.Label47, Me.TextBox14, Me.ComboBox2, Me.TextBox15, Me.DateTimePicker14, Me.Label48, Me.DateTimePicker15})
        Me.GroupBox23.Location = New System.Drawing.Point(0, 8)
        Me.GroupBox23.Name = "GroupBox23"
        Me.GroupBox23.Size = New System.Drawing.Size(280, 88)
        Me.GroupBox23.TabIndex = 83
        Me.GroupBox23.TabStop = False
        Me.GroupBox23.Text = "Datumsselektion"
        '
        'Button24
        '
        Me.Button24.Image = CType(resources.GetObject("Button24.Image"), System.Drawing.Bitmap)
        Me.Button24.Location = New System.Drawing.Point(308, 49)
        Me.Button24.Name = "Button24"
        Me.Button24.Size = New System.Drawing.Size(32, 24)
        Me.Button24.TabIndex = 97
        '
        'Button25
        '
        Me.Button25.Image = CType(resources.GetObject("Button25.Image"), System.Drawing.Bitmap)
        Me.Button25.Location = New System.Drawing.Point(308, 25)
        Me.Button25.Name = "Button25"
        Me.Button25.Size = New System.Drawing.Size(32, 24)
        Me.Button25.TabIndex = 96
        '
        'Label41
        '
        Me.Label41.Location = New System.Drawing.Point(216, 80)
        Me.Label41.Name = "Label41"
        Me.Label41.TabIndex = 95
        Me.Label41.Text = "Label26"
        Me.Label41.Visible = False
        '
        'Label42
        '
        Me.Label42.Location = New System.Drawing.Point(88, 80)
        Me.Label42.Name = "Label42"
        Me.Label42.TabIndex = 94
        Me.Label42.Text = "Label26"
        Me.Label42.Visible = False
        '
        'CheckBox2
        '
        Me.CheckBox2.Location = New System.Drawing.Point(200, 48)
        Me.CheckBox2.Name = "CheckBox2"
        Me.CheckBox2.TabIndex = 93
        Me.CheckBox2.Text = "(rollend)"
        '
        'CheckBox6
        '
        Me.CheckBox6.Location = New System.Drawing.Point(200, 24)
        Me.CheckBox6.Name = "CheckBox6"
        Me.CheckBox6.Size = New System.Drawing.Size(96, 24)
        Me.CheckBox6.TabIndex = 92
        Me.CheckBox6.Text = "(rollend)"
        '
        'TextBox13
        '
        Me.TextBox13.BackColor = System.Drawing.Color.White
        Me.TextBox13.ForeColor = System.Drawing.Color.Black
        Me.TextBox13.Location = New System.Drawing.Point(96, 24)
        Me.TextBox13.Name = "TextBox13"
        Me.TextBox13.ReadOnly = True
        Me.TextBox13.Size = New System.Drawing.Size(79, 20)
        Me.TextBox13.TabIndex = 54
        Me.TextBox13.Text = ""
        '
        'Label43
        '
        Me.Label43.Location = New System.Drawing.Point(56, 48)
        Me.Label43.Name = "Label43"
        Me.Label43.Size = New System.Drawing.Size(40, 23)
        Me.Label43.TabIndex = 91
        Me.Label43.Text = "bis"
        '
        'Label44
        '
        Me.Label44.Location = New System.Drawing.Point(56, 24)
        Me.Label44.Name = "Label44"
        Me.Label44.Size = New System.Drawing.Size(40, 23)
        Me.Label44.TabIndex = 90
        Me.Label44.Text = "von"
        '
        'Label45
        '
        Me.Label45.Location = New System.Drawing.Point(240, 152)
        Me.Label45.Name = "Label45"
        Me.Label45.Size = New System.Drawing.Size(96, 16)
        Me.Label45.TabIndex = 89
        Me.Label45.Text = "(19.12.2003)"
        Me.Label45.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.Label45.Visible = False
        '
        'ComboBox1
        '
        Me.ComboBox1.ItemHeight = 13
        Me.ComboBox1.Items.AddRange(New Object() {"(heute)", "(heute-1)", "(heute-2)", "(heute-3)", "(heute-4)", "(heute-5)", "(heute-6)", "(heute-7)", "(heute-8)", "(heute-9)", "(heute-10)", "(heute-11)", "(heute-12)", "(heute-13)", "(heute-14)", "(heute-15)", "(heute-16)", "(heute-17)", "(heute-18)", "(heute-19)", "(heute-20)", "(heute-21)", "(heute-22)", "(heute-23)", "(heute-24)", "(heute-25)", "(heute-26)", "(heute-27)", "(heute-28)", "(heute-29)", "(heute-30)"})
        Me.ComboBox1.Location = New System.Drawing.Point(240, 128)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(115, 21)
        Me.ComboBox1.TabIndex = 3
        Me.ComboBox1.Text = "ComboBox6"
        Me.ComboBox1.Visible = False
        '
        'Label46
        '
        Me.Label46.Location = New System.Drawing.Point(8, 128)
        Me.Label46.Name = "Label46"
        Me.Label46.Size = New System.Drawing.Size(72, 23)
        Me.Label46.TabIndex = 52
        Me.Label46.Text = "Archivierung"
        Me.Label46.Visible = False
        '
        'Label47
        '
        Me.Label47.Location = New System.Drawing.Point(160, 128)
        Me.Label47.Name = "Label47"
        Me.Label47.Size = New System.Drawing.Size(72, 21)
        Me.Label47.TabIndex = 79
        Me.Label47.Visible = False
        '
        'TextBox14
        '
        Me.TextBox14.BackColor = System.Drawing.Color.White
        Me.TextBox14.Enabled = False
        Me.TextBox14.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox14.Location = New System.Drawing.Point(240, 128)
        Me.TextBox14.Name = "TextBox14"
        Me.TextBox14.ReadOnly = True
        Me.TextBox14.Size = New System.Drawing.Size(79, 20)
        Me.TextBox14.TabIndex = 58
        Me.TextBox14.Text = "TextBox4"
        Me.TextBox14.Visible = False
        '
        'ComboBox2
        '
        Me.ComboBox2.ItemHeight = 13
        Me.ComboBox2.Items.AddRange(New Object() {"", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96", "97", "98", "99", "100", "101", "102", "103", "104", "105", "106", "107", "108", "109", "110", "111", "112", "113", "114", "115", "116", "117", "118", "119", "120", "121", "122", "123", "124", "125", "126", "127", "128", "129", "130", "131", "132", "133", "134", "135", "136", "137", "138", "139", "140", "141", "142", "143", "144", "145", "146", "147", "148", "149", "150", "151", "152", "153", "154", "155", "156", "157", "158", "159", "160", "161", "162", "163", "164", "165", "166", "167", "168", "169", "170", "171", "172", "173", "174", "175", "176", "177", "178", "179", "180", "181", "182", "183", "184", "185", "186", "187", "188", "189", "190", "191", "192", "193", "194", "195", "196", "197", "198", "199", "200", "201", "202", "203", "204", "205", "206", "207", "208", "209", "210", "211", "212", "213", "214", "215", "216", "217", "218", "219", "220", "221", "222", "223", "224", "225", "226", "227", "228", "229", "230", "231", "232", "233", "234", "235", "236", "237", "238", "239", "240", "241", "242", "243", "244", "245", "246", "247", "248", "249", "250", "251", "252", "253", "254", "255", "256", "257", "258", "259", "260", "261", "262", "263", "264", "265", "266", "267", "268", "269", "270", "271", "272", "273", "274", "275", "276", "277", "278", "279", "280", "281", "282", "283", "284", "285", "286", "287", "288", "289", "290", "291", "292", "293", "294", "295", "296", "297", "298", "299", "300", "301", "302", "303", "304", "305", "306", "307", "308", "309", "310", "311", "312", "313", "314", "315", "316", "317", "318", "319", "320", "321", "322", "323", "324", "325", "326", "327", "328", "329", "330", "331", "332", "333", "334", "335", "336", "337", "338", "339", "340", "341", "342", "343", "344", "345", "346", "347", "348", "349", "350", "351", "352", "353", "354", "355", "356", "357", "358", "359", "360", "361", "362", "363", "364", "365"})
        Me.ComboBox2.Location = New System.Drawing.Point(80, 128)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox2.TabIndex = 71
        Me.ComboBox2.Text = "HostTag3"
        Me.ComboBox2.Visible = False
        '
        'TextBox15
        '
        Me.TextBox15.BackColor = System.Drawing.Color.White
        Me.TextBox15.ForeColor = System.Drawing.Color.Black
        Me.TextBox15.Location = New System.Drawing.Point(96, 48)
        Me.TextBox15.Name = "TextBox15"
        Me.TextBox15.ReadOnly = True
        Me.TextBox15.Size = New System.Drawing.Size(79, 20)
        Me.TextBox15.TabIndex = 56
        Me.TextBox15.Text = ""
        '
        'DateTimePicker14
        '
        Me.DateTimePicker14.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker14.Location = New System.Drawing.Point(96, 48)
        Me.DateTimePicker14.Name = "DateTimePicker14"
        Me.DateTimePicker14.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker14.TabIndex = 44
        Me.DateTimePicker14.TabStop = False
        Me.DateTimePicker14.Value = New Date(2004, 1, 14, 18, 49, 59, 203)
        '
        'Label48
        '
        Me.Label48.Location = New System.Drawing.Point(160, 72)
        Me.Label48.Name = "Label48"
        Me.Label48.Size = New System.Drawing.Size(72, 21)
        Me.Label48.TabIndex = 78
        Me.Label48.Visible = False
        '
        'DateTimePicker15
        '
        Me.DateTimePicker15.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker15.Location = New System.Drawing.Point(96, 24)
        Me.DateTimePicker15.Name = "DateTimePicker15"
        Me.DateTimePicker15.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker15.TabIndex = 42
        Me.DateTimePicker15.TabStop = False
        Me.DateTimePicker15.Value = New Date(2004, 1, 14, 18, 49, 59, 125)
        '
        'Label49
        '
        Me.Label49.Location = New System.Drawing.Point(304, 456)
        Me.Label49.Name = "Label49"
        Me.Label49.Size = New System.Drawing.Size(40, 23)
        Me.Label49.TabIndex = 70
        Me.Label49.Text = "Tagen"
        Me.Label49.Visible = False
        '
        'Label50
        '
        Me.Label50.Location = New System.Drawing.Point(304, 432)
        Me.Label50.Name = "Label50"
        Me.Label50.Size = New System.Drawing.Size(40, 23)
        Me.Label50.TabIndex = 69
        Me.Label50.Text = "Tagen"
        Me.Label50.Visible = False
        '
        'Label51
        '
        Me.Label51.Location = New System.Drawing.Point(80, 456)
        Me.Label51.Name = "Label51"
        Me.Label51.Size = New System.Drawing.Size(160, 23)
        Me.Label51.TabIndex = 67
        Me.Label51.Text = "Mutationsdatum in den letzen "
        Me.Label51.Visible = False
        '
        'Label52
        '
        Me.Label52.Location = New System.Drawing.Point(80, 432)
        Me.Label52.Name = "Label52"
        Me.Label52.Size = New System.Drawing.Size(160, 23)
        Me.Label52.TabIndex = 66
        Me.Label52.Text = "Erstellungsdatum in den letzen"
        Me.Label52.Visible = False
        '
        'CheckBox7
        '
        Me.CheckBox7.Location = New System.Drawing.Point(16, 464)
        Me.CheckBox7.Name = "CheckBox7"
        Me.CheckBox7.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox7.TabIndex = 64
        Me.CheckBox7.Visible = False
        '
        'CheckBox8
        '
        Me.CheckBox8.Location = New System.Drawing.Point(16, 440)
        Me.CheckBox8.Name = "CheckBox8"
        Me.CheckBox8.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox8.TabIndex = 62
        Me.CheckBox8.Visible = False
        '
        'CheckBox9
        '
        Me.CheckBox9.Location = New System.Drawing.Point(16, 416)
        Me.CheckBox9.Name = "CheckBox9"
        Me.CheckBox9.Size = New System.Drawing.Size(16, 24)
        Me.CheckBox9.TabIndex = 60
        Me.CheckBox9.Visible = False
        '
        'TextBox16
        '
        Me.TextBox16.BackColor = System.Drawing.Color.White
        Me.TextBox16.Enabled = False
        Me.TextBox16.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox16.Location = New System.Drawing.Point(160, 464)
        Me.TextBox16.Name = "TextBox16"
        Me.TextBox16.ReadOnly = True
        Me.TextBox16.Size = New System.Drawing.Size(80, 20)
        Me.TextBox16.TabIndex = 59
        Me.TextBox16.Text = "TextBox4"
        Me.TextBox16.Visible = False
        '
        'TextBox17
        '
        Me.TextBox17.BackColor = System.Drawing.Color.White
        Me.TextBox17.Enabled = False
        Me.TextBox17.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox17.Location = New System.Drawing.Point(160, 440)
        Me.TextBox17.Name = "TextBox17"
        Me.TextBox17.ReadOnly = True
        Me.TextBox17.Size = New System.Drawing.Size(80, 20)
        Me.TextBox17.TabIndex = 57
        Me.TextBox17.Text = "TextBox4"
        Me.TextBox17.Visible = False
        '
        'TextBox18
        '
        Me.TextBox18.BackColor = System.Drawing.Color.White
        Me.TextBox18.Enabled = False
        Me.TextBox18.ForeColor = System.Drawing.Color.WhiteSmoke
        Me.TextBox18.Location = New System.Drawing.Point(160, 416)
        Me.TextBox18.Name = "TextBox18"
        Me.TextBox18.ReadOnly = True
        Me.TextBox18.Size = New System.Drawing.Size(80, 20)
        Me.TextBox18.TabIndex = 55
        Me.TextBox18.Text = "TextBox4"
        Me.TextBox18.Visible = False
        '
        'Label53
        '
        Me.Label53.Location = New System.Drawing.Point(48, 464)
        Me.Label53.Name = "Label53"
        Me.Label53.TabIndex = 53
        Me.Label53.Text = "Archivierung bis"
        Me.Label53.Visible = False
        '
        'Label54
        '
        Me.Label54.Location = New System.Drawing.Point(48, 440)
        Me.Label54.Name = "Label54"
        Me.Label54.Size = New System.Drawing.Size(96, 23)
        Me.Label54.TabIndex = 51
        Me.Label54.Text = "Mutation bis"
        Me.Label54.Visible = False
        '
        'Label55
        '
        Me.Label55.Location = New System.Drawing.Point(48, 416)
        Me.Label55.Name = "Label55"
        Me.Label55.Size = New System.Drawing.Size(96, 23)
        Me.Label55.TabIndex = 49
        Me.Label55.Text = "Erstellung bis"
        Me.Label55.Visible = False
        '
        'DateTimePicker16
        '
        Me.DateTimePicker16.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker16.Location = New System.Drawing.Point(160, 464)
        Me.DateTimePicker16.Name = "DateTimePicker16"
        Me.DateTimePicker16.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker16.TabIndex = 47
        Me.DateTimePicker16.TabStop = False
        Me.DateTimePicker16.Value = New Date(2004, 1, 14, 18, 49, 59, 312)
        Me.DateTimePicker16.Visible = False
        '
        'DateTimePicker17
        '
        Me.DateTimePicker17.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker17.Location = New System.Drawing.Point(160, 440)
        Me.DateTimePicker17.Name = "DateTimePicker17"
        Me.DateTimePicker17.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker17.TabIndex = 45
        Me.DateTimePicker17.TabStop = False
        Me.DateTimePicker17.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker17.Visible = False
        '
        'DateTimePicker18
        '
        Me.DateTimePicker18.Format = System.Windows.Forms.DateTimePickerFormat.Short
        Me.DateTimePicker18.Location = New System.Drawing.Point(160, 416)
        Me.DateTimePicker18.Name = "DateTimePicker18"
        Me.DateTimePicker18.Size = New System.Drawing.Size(98, 20)
        Me.DateTimePicker18.TabIndex = 43
        Me.DateTimePicker18.TabStop = False
        Me.DateTimePicker18.Value = New Date(2004, 1, 14, 18, 49, 59, 328)
        Me.DateTimePicker18.Visible = False
        '
        'Button26
        '
        Me.Button26.Location = New System.Drawing.Point(344, 48)
        Me.Button26.Name = "Button26"
        Me.Button26.Size = New System.Drawing.Size(16, 16)
        Me.Button26.TabIndex = 74
        '
        'Button27
        '
        Me.Button27.Location = New System.Drawing.Point(344, 80)
        Me.Button27.Name = "Button27"
        Me.Button27.Size = New System.Drawing.Size(16, 16)
        Me.Button27.TabIndex = 75
        '
        'Button28
        '
        Me.Button28.Location = New System.Drawing.Point(360, 336)
        Me.Button28.Name = "Button28"
        Me.Button28.Size = New System.Drawing.Size(16, 16)
        Me.Button28.TabIndex = 76
        Me.Button28.Visible = False
        '
        'Panel6
        '
        Me.Panel6.Controls.AddRange(New System.Windows.Forms.Control() {Me.PartnerList, Me.btnPartnersuche, Me.Label3, Me.TextBox3, Me.Label2, Me.TextBox2, Me.Label1, Me.TextBox1})
        Me.Panel6.Location = New System.Drawing.Point(256, 432)
        Me.Panel6.Name = "Panel6"
        Me.Panel6.Size = New System.Drawing.Size(24, 40)
        Me.Panel6.TabIndex = 3
        Me.Panel6.Visible = False
        '
        'PartnerList
        '
        Me.PartnerList.AllowFilter = True
        Me.PartnerList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.PartnerList.AllowSort = True
        Me.PartnerList.AllowUpdate = False
        Me.PartnerList.AllowUpdateOnBlur = False
        Me.PartnerList.AlternatingRows = True
        Me.PartnerList.CaptionHeight = 17
        Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.PartnerList.CollapseColor = System.Drawing.Color.Black
        Me.PartnerList.ContextMenu = Me.CTMenuErsteller
        Me.PartnerList.DataChanged = False
        Me.PartnerList.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.PartnerList.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.PartnerList.ExpandColor = System.Drawing.Color.Black
        Me.PartnerList.FetchRowStyles = True
        Me.PartnerList.FilterBar = True
        Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
        Me.PartnerList.Images.Add(CType(resources.GetObject("resource.Images3"), System.Drawing.Bitmap))
        Me.PartnerList.Location = New System.Drawing.Point(0, -360)
        Me.PartnerList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.PartnerList.Name = "PartnerList"
        Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.PartnerList.PreviewInfo.ZoomFactor = 75
        Me.PartnerList.PrintInfo.ShowOptionsDialog = False
        Me.PartnerList.RecordSelectorWidth = 16
        GridLines4.Color = System.Drawing.Color.DarkGray
        GridLines4.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.PartnerList.RowDivider = GridLines4
        Me.PartnerList.RowHeight = 15
        Me.PartnerList.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.PartnerList.ScrollTips = False
        Me.PartnerList.Size = New System.Drawing.Size(24, 400)
        Me.PartnerList.TabIndex = 17
        Me.PartnerList.Text = "C1TrueDBGrid1"
        Me.PartnerList.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
        "r{}Caption{AlignHorz:Center;}Normal{Font:Microsoft Sans Serif, 8.25pt;}Highlight" & _
        "Row{ForeColor:HighlightText;BackColor:Highlight;}Style9{}OddRow{BackColor:Silver" & _
        ";}RecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Border:Ra" & _
        "ised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{AlignH" & _
        "orz:Near;}Style11{}Style12{}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1T" & _
        "rueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""17"" Column" & _
        "CaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" FilterBar=""True" & _
        """ MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" V" & _
        "erticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 20, 396</Clie" & _
        "ntRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
        "ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
        "e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
        "ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
        "t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
        "><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
        """Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
        "Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
        "Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" />" & _
        "<Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Sty" & _
        "le parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Styl" & _
        "e parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style pa" & _
        "rent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style p" & _
        "arent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Styl" & _
        "e parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedS" & _
        "tyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><" & _
        "DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 20, 396</ClientArea>" & _
        "</Blob>"
        '
        'btnPartnersuche
        '
        Me.btnPartnersuche.Image = CType(resources.GetObject("btnPartnersuche.Image"), System.Drawing.Bitmap)
        Me.btnPartnersuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnPartnersuche.Location = New System.Drawing.Point(288, 32)
        Me.btnPartnersuche.Name = "btnPartnersuche"
        Me.btnPartnersuche.Size = New System.Drawing.Size(72, 40)
        Me.btnPartnersuche.TabIndex = 16
        Me.btnPartnersuche.Text = "&Suchen"
        Me.btnPartnersuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 64)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 23)
        Me.Label3.TabIndex = 15
        Me.Label3.Text = "Freitext"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(88, 64)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(160, 20)
        Me.TextBox3.TabIndex = 14
        Me.TextBox3.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 23)
        Me.Label2.TabIndex = 13
        Me.Label2.Text = "Kurzname"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(88, 40)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(160, 20)
        Me.TextBox2.TabIndex = 12
        Me.TextBox2.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 23)
        Me.Label1.TabIndex = 11
        Me.Label1.Text = "Partner-Nr."
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(88, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(160, 20)
        Me.TextBox1.TabIndex = 10
        Me.TextBox1.Text = ""
        '
        'Panel4
        '
        Me.Panel4.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label19, Me.LBSelectHost, Me.Button11, Me.Label22, Me.lbselect, Me.LBSort, Me.Label21, Me.lbSortfields, Me.GroupBox12})
        Me.Panel4.Location = New System.Drawing.Point(824, 384)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(48, 32)
        Me.Panel4.TabIndex = 8
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(200, 32)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(100, 16)
        Me.Label19.TabIndex = 19
        Me.Label19.Text = "Sortierungsart"
        '
        'LBSelectHost
        '
        Me.LBSelectHost.ContextMenu = Me.ContextMenu2
        Me.LBSelectHost.Location = New System.Drawing.Point(40, 312)
        Me.LBSelectHost.Name = "LBSelectHost"
        Me.LBSelectHost.Size = New System.Drawing.Size(296, 134)
        Me.LBSelectHost.TabIndex = 18
        '
        'Button11
        '
        Me.Button11.Location = New System.Drawing.Point(152, 264)
        Me.Button11.Name = "Button11"
        Me.Button11.Size = New System.Drawing.Size(80, 24)
        Me.Button11.TabIndex = 17
        Me.Button11.Text = "Einfügen"
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(40, 296)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(112, 16)
        Me.Label22.TabIndex = 16
        Me.Label22.Text = "Sortierungs-Kriterien"
        '
        'lbselect
        '
        Me.lbselect.ContextMenu = Me.ContextMenu2
        Me.lbselect.Location = New System.Drawing.Point(40, 312)
        Me.lbselect.Name = "lbselect"
        Me.lbselect.Size = New System.Drawing.Size(296, 134)
        Me.lbselect.TabIndex = 15
        '
        'LBSort
        '
        Me.LBSort.Items.AddRange(New Object() {"Absteigend", "Aufsteigend"})
        Me.LBSort.Location = New System.Drawing.Point(200, 48)
        Me.LBSort.Name = "LBSort"
        Me.LBSort.Size = New System.Drawing.Size(136, 199)
        Me.LBSort.Sorted = True
        Me.LBSort.TabIndex = 14
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(40, 32)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(100, 16)
        Me.Label21.TabIndex = 13
        Me.Label21.Text = "Sortierkriterien"
        '
        'lbSortfields
        '
        Me.lbSortfields.Items.AddRange(New Object() {"Bemerkung", "Bezeichnung", "Dokument-ID", "Dokumentart", "Ersteller", "Erstellungsdatum", "Mutationsdatum", "Mutierer", "Status", "Termin", "Verantwortlicher", "Zuständiger"})
        Me.lbSortfields.Location = New System.Drawing.Point(40, 48)
        Me.lbSortfields.Name = "lbSortfields"
        Me.lbSortfields.Size = New System.Drawing.Size(136, 199)
        Me.lbSortfields.Sorted = True
        Me.lbSortfields.TabIndex = 12
        '
        'GroupBox12
        '
        Me.GroupBox12.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox12.Name = "GroupBox12"
        Me.GroupBox12.Size = New System.Drawing.Size(360, 448)
        Me.GroupBox12.TabIndex = 20
        Me.GroupBox12.TabStop = False
        Me.GroupBox12.Text = "Sortierung"
        '
        'Panel3
        '
        Me.Panel3.Location = New System.Drawing.Point(736, 400)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(104, 104)
        Me.Panel3.TabIndex = 2
        Me.Panel3.Visible = False
        '
        'C1TrueDBGrid1
        '
        Me.C1TrueDBGrid1.AllowFilter = True
        Me.C1TrueDBGrid1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.C1TrueDBGrid1.AllowSort = True
        Me.C1TrueDBGrid1.AlternatingRows = True
        Me.C1TrueDBGrid1.CaptionHeight = 17
        Me.C1TrueDBGrid1.CollapseColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid1.ContextMenu = Me.CTMenuVerantwortlicher
        Me.C1TrueDBGrid1.DataChanged = False
        Me.C1TrueDBGrid1.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.C1TrueDBGrid1.ExpandColor = System.Drawing.Color.Black
        Me.C1TrueDBGrid1.FilterBar = True
        Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
        Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("resource.Images4"), System.Drawing.Bitmap))
        Me.C1TrueDBGrid1.Location = New System.Drawing.Point(840, 416)
        Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75
        Me.C1TrueDBGrid1.PrintInfo.ShowOptionsDialog = False
        Me.C1TrueDBGrid1.RecordSelectorWidth = 16
        GridLines5.Color = System.Drawing.Color.DarkGray
        GridLines5.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.C1TrueDBGrid1.RowDivider = GridLines5
        Me.C1TrueDBGrid1.RowHeight = 15
        Me.C1TrueDBGrid1.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.C1TrueDBGrid1.ScrollTips = False
        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(40, 24)
        Me.C1TrueDBGrid1.TabIndex = 0
        Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
        "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
        "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
        "lor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
        ":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
        "ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
        "}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
        " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
        "oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorW" & _
        "idth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1"">" & _
        "<ClientRect>0, 0, 36, 20</ClientRect><BorderSide>0</BorderSide><CaptionStyle par" & _
        "ent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowS" & _
        "tyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style" & _
        "13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""" & _
        "Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle paren" & _
        "t=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><O" & _
        "ddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSele" & _
        "ctor"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style paren" & _
        "t=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><" & _
        "Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style paren" & _
        "t=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""" & _
        "Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""N" & _
        "ormal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""N" & _
        "ormal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Headin" & _
        "g"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""" & _
        "Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</hor" & _
        "zSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientA" & _
        "rea>0, 0, 36, 20</ClientArea></Blob>"
        '
        'TabPage4
        '
        Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox2, Me.GroupBox1, Me.GroupBox9, Me.GroupBox5})
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(671, 616)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Unterschriften / Hinweise / Darstellung"
        Me.TabPage4.Visible = False
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbteam})
        Me.GroupBox2.Location = New System.Drawing.Point(8, 104)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(360, 56)
        Me.GroupBox2.TabIndex = 10
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Team"
        '
        'cbteam
        '
        Me.cbteam.Location = New System.Drawing.Point(112, 21)
        Me.cbteam.Name = "cbteam"
        Me.cbteam.Size = New System.Drawing.Size(240, 21)
        Me.cbteam.TabIndex = 8
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button5, Me.colbtn6, Me.colbtn5, Me.colbtn4, Me.colbtn3, Me.colbtn2, Me.colbtn1})
        Me.GroupBox1.Location = New System.Drawing.Point(8, 168)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(360, 72)
        Me.GroupBox1.TabIndex = 8
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Farbgebung der Dokumentliste"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(288, 19)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(64, 40)
        Me.Button5.TabIndex = 44
        Me.Button5.Text = "Standard herstellen"
        '
        'colbtn6
        '
        Me.colbtn6.Location = New System.Drawing.Point(96, 40)
        Me.colbtn6.Name = "colbtn6"
        Me.colbtn6.Size = New System.Drawing.Size(88, 20)
        Me.colbtn6.TabIndex = 43
        Me.colbtn6.Text = "Pendent"
        '
        'colbtn5
        '
        Me.colbtn5.Location = New System.Drawing.Point(184, 40)
        Me.colbtn5.Name = "colbtn5"
        Me.colbtn5.Size = New System.Drawing.Size(88, 20)
        Me.colbtn5.TabIndex = 42
        Me.colbtn5.Text = "Überfällig"
        '
        'colbtn4
        '
        Me.colbtn4.Location = New System.Drawing.Point(184, 16)
        Me.colbtn4.Name = "colbtn4"
        Me.colbtn4.Size = New System.Drawing.Size(88, 20)
        Me.colbtn4.TabIndex = 41
        Me.colbtn4.Text = "Terminiert"
        '
        'colbtn3
        '
        Me.colbtn3.Location = New System.Drawing.Point(8, 40)
        Me.colbtn3.Name = "colbtn3"
        Me.colbtn3.Size = New System.Drawing.Size(88, 20)
        Me.colbtn3.TabIndex = 40
        Me.colbtn3.Text = "In Bearbeitung"
        '
        'colbtn2
        '
        Me.colbtn2.Location = New System.Drawing.Point(96, 16)
        Me.colbtn2.Name = "colbtn2"
        Me.colbtn2.Size = New System.Drawing.Size(88, 20)
        Me.colbtn2.TabIndex = 39
        Me.colbtn2.Text = "Verantwortlich"
        '
        'colbtn1
        '
        Me.colbtn1.Location = New System.Drawing.Point(8, 16)
        Me.colbtn1.Name = "colbtn1"
        Me.colbtn1.Size = New System.Drawing.Size(88, 20)
        Me.colbtn1.TabIndex = 38
        Me.colbtn1.Text = "Standard"
        '
        'GroupBox9
        '
        Me.GroupBox9.Controls.AddRange(New System.Windows.Forms.Control() {Me.cb3_1, Me.cb5, Me.cb4, Me.cb3, Me.cb2, Me.cb1})
        Me.GroupBox9.Location = New System.Drawing.Point(376, 8)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(216, 232)
        Me.GroupBox9.TabIndex = 7
        Me.GroupBox9.TabStop = False
        Me.GroupBox9.Text = "Hinweismeldungen"
        '
        'cb3_1
        '
        Me.cb3_1.Location = New System.Drawing.Point(8, 120)
        Me.cb3_1.Name = "cb3_1"
        Me.cb3_1.Size = New System.Drawing.Size(192, 32)
        Me.cb3_1.TabIndex = 10
        Me.cb3_1.Text = "Bedingte Retournierung"
        '
        'cb5
        '
        Me.cb5.Location = New System.Drawing.Point(16, 176)
        Me.cb5.Name = "cb5"
        Me.cb5.Size = New System.Drawing.Size(144, 32)
        Me.cb5.TabIndex = 9
        Me.cb5.Text = "Meldung XY5 anzeigen"
        Me.cb5.Visible = False
        '
        'cb4
        '
        Me.cb4.Location = New System.Drawing.Point(16, 152)
        Me.cb4.Name = "cb4"
        Me.cb4.Size = New System.Drawing.Size(144, 32)
        Me.cb4.TabIndex = 8
        Me.cb4.Text = "Meldung XY4 anzeigen"
        Me.cb4.Visible = False
        '
        'cb3
        '
        Me.cb3.Location = New System.Drawing.Point(8, 88)
        Me.cb3.Name = "cb3"
        Me.cb3.Size = New System.Drawing.Size(192, 32)
        Me.cb3.TabIndex = 7
        Me.cb3.Text = "Einzeldokument"
        '
        'cb2
        '
        Me.cb2.Location = New System.Drawing.Point(8, 56)
        Me.cb2.Name = "cb2"
        Me.cb2.Size = New System.Drawing.Size(200, 32)
        Me.cb2.TabIndex = 6
        Me.cb2.Text = "Dokumentbearbeitung - Statuswechsel"
        '
        'cb1
        '
        Me.cb1.Location = New System.Drawing.Point(8, 24)
        Me.cb1.Name = "cb1"
        Me.cb1.Size = New System.Drawing.Size(200, 32)
        Me.cb1.TabIndex = 5
        Me.cb1.Text = "Partnererfassung"
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label31, Me.cbUnterschriftrechts, Me.Label30, Me.cbUnterschriftlinks})
        Me.GroupBox5.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(360, 88)
        Me.GroupBox5.TabIndex = 2
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Unterschriften"
        '
        'Label31
        '
        Me.Label31.Location = New System.Drawing.Point(24, 56)
        Me.Label31.Name = "Label31"
        Me.Label31.Size = New System.Drawing.Size(72, 23)
        Me.Label31.TabIndex = 8
        Me.Label31.Text = "Rechts"
        '
        'cbUnterschriftrechts
        '
        Me.cbUnterschriftrechts.Location = New System.Drawing.Point(112, 56)
        Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts"
        Me.cbUnterschriftrechts.Size = New System.Drawing.Size(240, 21)
        Me.cbUnterschriftrechts.TabIndex = 7
        '
        'Label30
        '
        Me.Label30.Location = New System.Drawing.Point(24, 24)
        Me.Label30.Name = "Label30"
        Me.Label30.Size = New System.Drawing.Size(72, 23)
        Me.Label30.TabIndex = 6
        Me.Label30.Text = "Links"
        '
        'cbUnterschriftlinks
        '
        Me.cbUnterschriftlinks.Location = New System.Drawing.Point(112, 24)
        Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks"
        Me.cbUnterschriftlinks.Size = New System.Drawing.Size(240, 21)
        Me.cbUnterschriftlinks.TabIndex = 5
        '
        'TabControl1
        '
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage4})
        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TabControl1.ItemSize = New System.Drawing.Size(112, 18)
        Me.TabControl1.Location = New System.Drawing.Point(3, 33)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(679, 642)
        Me.TabControl1.TabIndex = 16
        '
        'frmProfilinfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(682, 675)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1, Me.Splitter1, Me.Button4, Me.Panel2, Me.Panel1, Me.ToolBar1})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Menu = Me.MainMenu1
        Me.Name = "frmProfilinfo"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Profil-Information - "
        Me.Panel2.ResumeLayout(False)
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage1.ResumeLayout(False)
        CType(Me.C1TrueDBGrid3, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox13.ResumeLayout(False)
        Me.GroupBox15.ResumeLayout(False)
        Me.PnlDokumentart.ResumeLayout(False)
        Me.GroupBox16.ResumeLayout(False)
        Me.PnlDokumentDaten.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox10.ResumeLayout(False)
        Me.pnlhostdiv.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox11.ResumeLayout(False)
        Me.GroupBox8.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox24.ResumeLayout(False)
        Me.GroupBox31.ResumeLayout(False)
        Me.GroupBox32.ResumeLayout(False)
        Me.Panel9.ResumeLayout(False)
        Me.GroupBox33.ResumeLayout(False)
        Me.GroupBox34.ResumeLayout(False)
        Me.GroupBox35.ResumeLayout(False)
        Me.GroupBox37.ResumeLayout(False)
        Me.Panel10.ResumeLayout(False)
        CType(Me.C1TrueDBGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox30.ResumeLayout(False)
        Me.GroupBox25.ResumeLayout(False)
        Me.GroupBox26.ResumeLayout(False)
        Me.GroupBox27.ResumeLayout(False)
        Me.Panel7.ResumeLayout(False)
        Me.GroupBox28.ResumeLayout(False)
        Me.GroupBox29.ResumeLayout(False)
        Me.GroupBox38.ResumeLayout(False)
        Me.GroupBox40.ResumeLayout(False)
        Me.Panel8.ResumeLayout(False)
        CType(Me.C1TrueDBGrid4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox41.ResumeLayout(False)
        Me.GroupBox14.ResumeLayout(False)
        Me.GroupBox17.ResumeLayout(False)
        Me.GroupBox18.ResumeLayout(False)
        Me.Panel5.ResumeLayout(False)
        Me.GroupBox19.ResumeLayout(False)
        Me.GroupBox20.ResumeLayout(False)
        Me.GroupBox21.ResumeLayout(False)
        Me.GroupBox23.ResumeLayout(False)
        Me.Panel6.ResumeLayout(False)
        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel4.ResumeLayout(False)
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage4.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox9.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.TabControl1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "Deklarationen"
    Dim oninit As Boolean = False
    'Dim WithEvents Partnerdialog As New FrmPartnersuche()
    Dim Profil_Ungueltig As Boolean
    Dim savenode As TreeNode
    Dim lbentry(1) As Object
    Dim i As Integer
    Dim m_profilnr As Integer
    Dim changes As Boolean
    Dim expandzv As Boolean
    Dim expanduvm As Boolean

    Dim m_profile_geaendert As Boolean
    Property Profile_Geaendert() As Boolean
        Get
            Return m_profile_geaendert
        End Get
        Set(ByVal Value As Boolean)
            m_profile_geaendert = Value
        End Set
    End Property
    Property ProfilNr() As Integer
        Get
            Return m_profilnr
        End Get
        Set(ByVal Value As Integer)
            m_profilnr = Value
        End Set
    End Property
    Dim On_Load As Boolean
    Dim checkchanges As Boolean
    Dim Profname As String

    Dim NodeText As String
    Dim colconv As New ColorConverter()

    Dim WithEvents mcbunterschriftlinks As New MultiComboBox()
    Dim WithEvents mcbunterschriftrechts As New MultiComboBox()
    Dim WithEvents mcbTeam As New MultiComboBox()

    Dim li As ListViewItem
    Dim ActiveList As Integer
    Dim first As Boolean = True
    Dim tmb As DataTable
    Dim tnl As DataTable
    Dim tko As DataTable
    Dim tte As DataTable
    Dim tpe As DataTable
    Dim tst As DataTable
    Dim tda As DataTable
    Dim tdt As DataTable
    Dim tdh As DataTable
    Dim tku As DataTable
    Dim tdtuvm As DataTable = Generic_Select(10)
    Dim tdtzv As DataTable

    Dim mypartner As New edokadb.clsMyPartner()
    Dim partner As DataTable
    Dim dokumentart As New edokadb.clsMyDokumentart()
    Friend selectPoint As New System.Drawing.Point()
    Dim FirstNodeWithData As TreeNode
#End Region

#Region "Formularhandling"

    Private Sub frmProfil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Cursor = Cursors.WaitCursor
        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Me.SqlConnection2.ConnectionString = Globals.sConnectionString
        On_Load = True
        Me.Profile.BeginUpdate()
        checkchanges = False
        changes = False
        Me.Profile.Nodes.Clear()
        Me.DataSet1.Clear()
        'Personendaten
        Dim tn, tn1 As TreeNode
        If first Then
            init_treeview1()
            tmb = Generic_Select(3)
            tnl = Generic_Select(4)
            tko = Generic_Select(5)
            tte = Generic_Select(6)
            tst = Generic_Select(2)
            tpe = Generic_Select(1)
            tdt = Generic_Select(7)
            tdh = Generic_Select(8)
            tku = Generic_Select(9)
            tdtuvm = Generic_Select(10)
            tdtzv = Generic_Select(11)

            mcbTeam = New MultiComboBox(Me.cbteam)
            Me.mcbTeam.DisplayColumnName = "Bezeichnung"
            Me.mcbTeam.ValueColumnName = "teamnr"
            Me.mcbTeam.Fill_Data(tte, True)
            Me.mcbTeam.Visible = True
            Me.mcbTeam.CheckNullValue = False

            mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks)
            Me.mcbunterschriftlinks.CheckNullValue = False
            Me.mcbunterschriftlinks.DisplayColumnName = "name"
            Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr"
            Me.mcbunterschriftlinks.Fill_Data(tpe, True)
            Me.mcbunterschriftlinks.Visible = True

            mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts)
            Me.mcbunterschriftrechts.CheckNullValue = False
            Me.mcbunterschriftrechts.DisplayColumnName = "name"
            Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr"
            Me.mcbunterschriftrechts.Fill_Data(tpe, True)
            Me.mcbunterschriftrechts.Visible = True
        End If

        Dim hdata As New edokadb.clsMyDokumentart()
        hdata.cpMainConnectionProvider = conn
        tda = hdata.SelectHierarchy_Parametrisierung_By_Root(1)
        hdata.Dispose()

        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Me.SqlDataAdapter1.SelectCommand.Parameters("@mitarbeiternr").Value = Globals.MitarbeiterNr
        Me.SqlDataAdapter1.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
        Me.SqlDataAdapter1.Fill(Me.DataSet1)
        For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1
            tn = Me.Profile.Nodes.Add(Me.DataSet1.Tables(0).Rows(i).Item("bezeichnung"))
            tn.Tag = Me.DataSet1.Tables(0).Rows(i).Item("profilnr")
            If Me.DataSet1.Tables(0).Rows(i).Item("standard") Then
                tn.BackColor = System.Drawing.Color.LightBlue
                If Me.ProfilNr = 0 Then Me.ProfilNr = tn.Tag
            Else
                tn.BackColor = System.Drawing.Color.White
            End If
        Next
        first = False
        Load_Profil(Me.ProfilNr)
        checkchanges = False
        tn = Me.Profile.Nodes(0)
        Do Until tn Is Nothing
            If tn.Tag = Me.ProfilNr Then Me.Profile.SelectedNode = tn
            tn = tn.NextNode
        Loop
        On_Load = False
        first = False
        Me.TreeView1.ExpandAll()
        Profil_Colors()
        Me.LBSort.SelectedIndex = 0
        Me.lbSortfields.SelectedIndex = 0
        checkchanges = True
        Me.Profile.EndUpdate()
        Profname = ""
        Activate_Details()
        Me.Cursor = Cursors.Default
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        nodeswithdata(90)
        nodeswithdata(72)
        nodeswithdata(92)
        set_tips()
        Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
    End Sub

    Public Function test() As TreeView
        Me.Cursor = Cursors.WaitCursor
        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Me.SqlConnection2.ConnectionString = Globals.sConnectionString
        On_Load = True
        Me.Profile.BeginUpdate()
        checkchanges = False
        changes = False
        Me.Profile.Nodes.Clear()
        Me.DataSet1.Clear()
        'Personendaten
        Dim tn, tn1 As TreeNode
        If first Then
            init_treeview1()
            tmb = Generic_Select(3)
            tnl = Generic_Select(4)
            tko = Generic_Select(5)
            tte = Generic_Select(6)
            tst = Generic_Select(2)
            tpe = Generic_Select(1)
            tdt = Generic_Select(7)
            tdh = Generic_Select(8)
            tku = Generic_Select(9)

            mcbTeam = New MultiComboBox(Me.cbteam)
            Me.mcbTeam.DisplayColumnName = "Bezeichnung"
            Me.mcbTeam.ValueColumnName = "teamnr"
            Me.mcbTeam.Fill_Data(tte, True)
            Me.mcbTeam.Visible = True
            Me.mcbTeam.CheckNullValue = False

            mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks)
            Me.mcbunterschriftlinks.CheckNullValue = False
            Me.mcbunterschriftlinks.DisplayColumnName = "name"
            Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr"
            Me.mcbunterschriftlinks.Fill_Data(tpe, True)
            Me.mcbunterschriftlinks.Visible = True

            mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts)
            Me.mcbunterschriftrechts.CheckNullValue = False
            Me.mcbunterschriftrechts.DisplayColumnName = "name"
            Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr"
            Me.mcbunterschriftrechts.Fill_Data(tpe, True)
            Me.mcbunterschriftrechts.Visible = True
        End If

        Dim hdata As New edokadb.clsMyDokumentart()
        hdata.cpMainConnectionProvider = conn
        tda = hdata.SelectHierarchy_Parametrisierung_By_Root(1)
        hdata.Dispose()

        Me.SqlConnection1.ConnectionString = Globals.sConnectionString
        Me.SqlDataAdapter1.SelectCommand.Parameters("@mitarbeiternr").Value = Globals.MitarbeiterNr
        Me.SqlDataAdapter1.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
        Me.SqlDataAdapter1.Fill(Me.DataSet1)
        For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1
            tn = Me.Profile.Nodes.Add(Me.DataSet1.Tables(0).Rows(i).Item("bezeichnung"))
            tn.Tag = Me.DataSet1.Tables(0).Rows(i).Item("profilnr")
            If Me.DataSet1.Tables(0).Rows(i).Item("standard") Then
                tn.BackColor = System.Drawing.Color.LightBlue
                If Me.ProfilNr = 0 Then Me.ProfilNr = tn.Tag
            Else
                tn.BackColor = System.Drawing.Color.White
            End If
        Next
        first = False
        Load_Profil(Me.ProfilNr)
        checkchanges = False
        tn = Me.Profile.Nodes(0)
        Do Until tn Is Nothing
            If tn.Tag = Me.ProfilNr Then Me.Profile.SelectedNode = tn
            tn = tn.NextNode
        Loop
        On_Load = False
        first = False
        Me.TreeView1.ExpandAll()
        Profil_Colors()
        Me.LBSort.SelectedIndex = 0
        Me.lbSortfields.SelectedIndex = 0
        checkchanges = True
        Me.Profile.EndUpdate()
        Profname = ""
        Activate_Details()
        Me.Cursor = Cursors.Default
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        nodeswithdata(90)
        nodeswithdata(72)
        nodeswithdata(92)
        set_tips()
        Return Me.TreeView1
    End Function

    Private Sub Activate_Details()
        Me.TreeView1.SelectedNode = Nothing
        If Me.FirstNodeWithData Is Nothing Then
            DivFnkt.Searchnode1(Me.TreeView1, 41, 99)
            If DivFnkt.found Then
                'If colconv.ConvertToString(DivFnkt.FoundNode.ForeColor) = colconv.ConvertToString(System.Drawing.Color.Blue) Then
                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                'Me.PnlDokumentart.Visible = True
                'End If
            End If
        Else
            Me.TreeView1.SelectedNode = Me.FirstNodeWithData
        End If

    End Sub

    Private Function init_treeview1()
        Me.TreeView1.Nodes.Clear()
        Dim t0, tn, tn1 As TreeNode
        TreeView1.BeginUpdate()
        Me.TreeView1.Nodes.Clear()
        t0 = Me.TreeView1.Nodes.Add("Partner")
        t0.ImageIndex = 10
        t0.SelectedImageIndex = 10
        t0.Tag = 999
        tn1 = t0.Nodes.Add("Partner")
        tn1.Tag = 41
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = t0.Nodes.Add("Kundenbetreuer")
        tn1.Tag = 51
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4


        t0 = Me.TreeView1.Nodes.Add("EDOKA-Dokumente")
        t0.ImageIndex = 6
        t0.SelectedImageIndex = 6
        t0.Tag = 998
        tn = t0.Nodes.Add("Verantwortlich")
        tn.ImageIndex = 7
        tn.SelectedImageIndex = 7
        tn.Tag = 1
        tn1 = tn.Nodes.Add("Marktbereich")
        tn1.Tag = 11
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Niederlassung")
        tn1.Tag = 12
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Kostenstelle")
        tn1.Tag = 13
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Team")
        tn1.Tag = 14
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Mitarbeiter")
        tn1.Tag = 15
        tn1.SelectedImageIndex = 4
        tn1.ImageIndex = 4
        'tn = Me.TreeView1.Nodes.Add("Ersteller")
        tn = t0.Nodes.Add("Ersteller")
        tn.ImageIndex = 8
        tn.SelectedImageIndex = 8
        tn.Tag = 2
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Marktbereich")
        tn1.Tag = 21
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Niederlassung")
        tn1.Tag = 22
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Kostenstelle")
        tn1.Tag = 23
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Team")
        tn1.Tag = 24
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Mitarbeiter")
        tn1.Tag = 25
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn = t0.Nodes.Add("Mutierer")
        'tn = Me.TreeView1.Nodes.Add("Mutierer")
        tn.ImageIndex = 9
        tn.SelectedImageIndex = 9
        tn.Tag = 3
        tn1 = tn.Nodes.Add("Marktbereich")
        tn1.SelectedImageIndex = 4
        tn1.Tag = 31
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Niederlassung")
        tn1.SelectedImageIndex = 4
        tn1.Tag = 32
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Kostenstelle")
        tn1.Tag = 33
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Team")
        tn1.Tag = 34
        tn1.ImageIndex = 4
        tn1 = tn.Nodes.Add("Mitarbeiter")
        tn1.Tag = 35
        tn1.ImageIndex = 4

        'tn = t0.Nodes.Add("Diverses")
        '        tn = Me.TreeView1.Nodes.Add("Diverses")
        'tn.ImageIndex = 6
        'tn.SelectedImageIndex = 6
        'tn.Tag = 4

        'tn1 = tn.Nodes.Add("Partner")
        'tn1.Tag = 41
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Dokumentart")
        tn1.Tag = 42
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Dokumenttyp")
        tn1.Tag = 43
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Dokumentstatus")
        tn1.Tag = 44
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Datum-Selektion")
        tn1.Tag = 45
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("inkl. gelöschte/aufgehobene")
        tn1.Tag = 62
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = t0.Nodes.Add("Sortierung")
        tn1.Tag = 60
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn = t0.Nodes.Add("ZV-Belege")
        tn.Tag = 70
        tn.ImageIndex = 13
        tn.SelectedImageIndex = 13

        tn1 = tn.Nodes.Add("Dokumenttyp")
        tn1.Tag = 71
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Datum-Selektion")
        tn1.Tag = 72
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Auftrags-Nr.")
        tn1.Tag = 73
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Auftraggeber")
        tn1.Tag = 74
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Betrag")
        tn1.Tag = 75
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Clearing-Nr.")
        tn1.Tag = 76
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("ISO-Währung")
        tn1.Tag = 77
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Konto Begünstigter")
        tn1.Tag = 78
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("PC-Nr")
        tn1.Tag = 79
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Posten-Nr.")
        tn1.Tag = 80
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Referenz-Nr.")
        tn1.Tag = 81
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("SWIFT-Adresse")
        tn1.Tag = 82
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Verarbeitungsart")
        tn1.Tag = 83
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Zahlungsart")
        tn1.Tag = 84
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn.Collapse()

        tn = t0.Nodes.Add("Basis-Verträge")
        tn.Tag = 90
        tn.ImageIndex = 12
        tn.SelectedImageIndex = 12

        tn1 = tn.Nodes.Add("Dokumenttyp")
        tn1.Tag = 91
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Datum-Selektion")
        tn1.Tag = 92
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Auftrags-Nr.")
        tn1.Tag = 93
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        'tn1 = tn.Nodes.Add("Sortierung")
        'tn1.Tag = 94
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4
        'tn.Collapse()


        'tn = t0.Nodes.Add("HOST-Dokumente")
        tn = Me.TreeView1.Nodes.Add("Host-Dokumente")
        tn.ImageIndex = 11
        tn.SelectedImageIndex = 11
        tn.Tag = 5
        '        tn1 = tn.Nodes.Add("Partner")
        '       tn1.Tag = 51
        '      tn1.ImageIndex = 4
        '     tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Dokumentart")
        tn1.Tag = 52
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Dokumenttyp")
        tn1.Tag = 53
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        'tn1 = tn.Nodes.Add("Dokumentstatus")
        'tn1.Tag = 54
        'tn1.ImageIndex = 4
        'tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("VV")
        tn1.Tag = 54
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4

        tn1 = tn.Nodes.Add("Valorennr")
        tn1.Tag = 59
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("ISIN-Nr")
        tn1.Tag = 58
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Datum-Selektion")
        tn1.Tag = 55
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4
        tn1 = tn.Nodes.Add("Sortierung")
        tn1.Tag = 61
        tn1.ImageIndex = 4
        tn1.SelectedImageIndex = 4


        Me.TVDokart.Nodes.Clear()
        dokumentart.LoadTreeMenu(Me.TVDokart, 2)
        Me.TVDokart.CollapseAll()

        Me.TVHostDok.Nodes.Clear()
        dokumentart.LoadTreeMenu(Me.TVHostDok, 3)
        Me.TVHostDok.ExpandAll()

        Me.TreeView1.EndUpdate()
    End Function

    Private Function Profil_Colors()
        Dim tn As TreeNode
        Me.Profile.BeginUpdate()
        tn = Me.Profile.Nodes(0)
        Do Until tn Is Nothing
            If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then
                tn.BackColor = System.Drawing.Color.LightBlue
            Else
                tn.BackColor = System.Drawing.Color.White
            End If
            tn = tn.NextNode
        Loop
        Try
            Me.Profile.SelectedNode.BackColor = System.Drawing.Color.Silver
            Me.Profile.EndUpdate()
        Catch
        End Try
    End Function
#End Region

#Region "MenuHandling"
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Try
            If Me.TreeView1.SelectedNode.Tag = 42 Then
                Me.TVDokart.BeginUpdate()
                Me.TVDokart.SelectedNode.ExpandAll()
                Me.TVDokart.EndUpdate()
            Else
                Me.TVHostDok.BeginUpdate()
                Me.TVHostDok.SelectedNode.ExpandAll()
                Me.TVHostDok.EndUpdate()
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        If Me.TreeView1.SelectedNode.Tag = 42 Then
            Me.TVDokart.SelectedNode.Collapse()
        Else
            Me.TVHostDok.SelectedNode.Collapse()
        End If
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                Me.Close()
                '                Me.MenuItem5_Click(sender, e)
            Case 1
            Case 2
                Me.TreeView1.BeginUpdate()
                Me.Profile.BeginUpdate()
                Me.On_Load = True
                Me.oninit = True
                Save_Profile()
                Me.Profile.EndUpdate()
                Me.TreeView1.EndUpdate()
                If Me.Profil_Ungueltig = True Then MyMsg.show_standardmessage(104, MsgBoxStyle.Critical)
                Me.On_Load = False
                Me.oninit = False
            Case 3
                Me.TreeView1.BeginUpdate()
                oninit = True
                init_profile()
                oninit = False
                Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
                Me.TreeView1.EndUpdate()
            Case Else
        End Select
    End Sub


    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Try
            Dim tn As TreeNode
            Dim p As New edokadb.clsProfil()
            p.cpMainConnectionProvider = conn
            Me.Profile.BeginUpdate()
            tn = Me.Profile.Nodes(0)
            Do Until tn Is Nothing
                If colconv.ConvertToString(tn.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Then
                    conn.OpenConnection()
                    p.iProfilnr = New SqlInt32(CType(tn.Tag, Int32))
                    p.SelectOne()
                    p.bStandard = New SqlBoolean(CType(False, Boolean))
                    p.Update()
                    conn.CloseConnection(True)
                End If
                tn.BackColor = System.Drawing.Color.White
                tn = tn.NextNode
            Loop
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32))
            p.SelectOne()
            p.bStandard = New SqlBoolean(CType(True, Boolean))
            p.Update()
            conn.CloseConnection(True)
            p.Dispose()
            Me.Profile.SelectedNode.BackColor = System.Drawing.Color.LightBlue
            Me.Profile.EndUpdate()
        Catch
        End Try
    End Sub


    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Try
            Dim a As String
            a = InputBox(MyTxt.gettext(501))
            If a <> "" Then
                Me.Profile_Geaendert = True
                Me.Profile.SelectedNode.Text = a
                Me.Profname = a
                If checkchanges Then changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        If MyMsg.Show_MessageYesNo(16) = MsgBoxResult.Yes Then
            Dim p As New edokadb.clsProfil()
            p.cpMainConnectionProvider = conn
            Me.Profile_Geaendert = True
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(Me.Profile.SelectedNode.Tag, Int32))
            p.SelectOne()
            p.bAktiv = New SqlBoolean(CType(False, Boolean))
            p.Update()
            p.Dispose()
            conn.CloseConnection(True)
            Me.ProfilNr = 0
            frmProfil_Load(sender, e)
        End If
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Me.Close()
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        check_changes()
        Dim a As String
        a = InputBox(MyTxt.gettext(501))
        If a <> "" Then
            Me.Profile_Geaendert = True
            Dim p As New edokadb.clsProfil()
            Dim dbkey As New edokadb.clsMyKey_Tabelle()
            Dim key As Int32
            dbkey.cpMainConnectionProvider = conn
            p.cpMainConnectionProvider = conn
            key = dbkey.get_dbkey("profil")
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(0, Int32))
            p.SelectOne()
            p.bAktiv = New SqlBoolean(CType(True, Boolean))
            p.sBezeichnung = New SqlString(CType(a, String))
            p.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            p.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
            p.iProfilnr = New SqlInt32(CType(key, Int32))
            p.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
            p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            p.sVma = New SqlString(CType(Globals.MitarbeiterNr, String))

            p.Insert()
            conn.CloseConnection(True)
            p.Dispose()
            dbkey.Dispose()
            Me.ProfilNr = key
            Me.frmProfil_Load(sender, e)
        End If
    End Sub
    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim a As String
        a = InputBox(MyTxt.gettext(501))
        If a <> "" Then
            Me.Profile_Geaendert = True
            Dim p As New edokadb.clsProfil()
            Dim dbkey As New edokadb.clsMyKey_Tabelle()
            Dim key As Int32
            dbkey.cpMainConnectionProvider = conn
            p.cpMainConnectionProvider = conn
            key = dbkey.get_dbkey("profil")
            conn.OpenConnection()
            p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
            p.SelectOne()
            p.sBezeichnung = New SqlString(CType(a, String))
            p.iProfilnr = New SqlInt32(CType(key, Int32))
            p.Insert()
            conn.CloseConnection(True)
            p.Dispose()
            dbkey.Dispose()
            Me.ProfilNr = key
            Me.frmProfil_Load(sender, e)
        End If
    End Sub


    Private Sub MnuSelectDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSelectDokumentart.Click
        If Me.TreeView1.SelectedNode.Tag = 42 Then
            Me.TVDokart.SelectedNode.ImageIndex = 1
            Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Red
        Else
            Me.TVHostDok.SelectedNode.ImageIndex = 1
            Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Red
        End If
        changes = True
    End Sub

    Private Sub MnuDeleteDokumentart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteDokumentart.Click
        If Me.TreeView1.SelectedNode.Tag = 42 Then
            Me.TVDokart.SelectedNode.ImageIndex = 2
            Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Black
        Else
            Me.TVHostDok.SelectedNode.ImageIndex = 2
            Me.TVHostDok.SelectedNode.ForeColor = System.Drawing.Color.Black
        End If
        changes = True
    End Sub

    Private Sub MnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDel.Click
        Try
            Dim tn As TreeNode
            tn = TreeView1.SelectedNode
            tn.Remove()
            changes = True
        Catch
        End Try
    End Sub

    Private Sub CTmenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctmenu1.Popup
        Try
            Dim tn As TreeNode
            tn = Me.TreeView1.SelectedNode
            Try
                Dim I As Integer
                I = tn.Parent.Tag
            Catch
                Me.MnuDel.Enabled = False
                Me.MenuItem14.Enabled = False
                Exit Sub
            End Try
            If tn.Text = "Diverse" Or tn.Text = "Dokumentart" Or tn.Text = "Verantwortlich" Or tn.Text = "Ersteller" Or tn.Text = "Mutierer" Or tn.Text = "Datum-Selektion" Or tn.Text = "inkl. gelöschte/aufgehobene" Or tn.Text = "Sortierung" Then
                Me.MnuDel.Enabled = False
                Me.MenuItem14.Enabled = False

                Exit Sub
            End If

            Me.MnuDel.Enabled = False
            Me.MenuItem14.Enabled = False
            If tn.Parent.Tag = 58 Or tn.Parent.Tag = 59 Or tn.Parent.Tag = 54 Then
                Me.MnuDel.Enabled = True
                Exit Sub
            End If

            If tn.Parent.Tag = 1 Or tn.Parent.Tag = 2 Or tn.Parent.Tag = 3 Or tn.Parent.Tag = 4 Or tn.Tag = 5 Then
                Me.MnuDel.Enabled = False
                Me.MenuItem14.Enabled = True
                Exit Sub
            End If

            If tn.Tag = 41 Or tn.Tag = 54 Or tn.Tag = 51 Or tn.Tag = 58 Or tn.Tag = 59 Or tn.Tag = 54 Or tn.Tag = 42 Or tn.Tag = 43 Or tn.Tag = 44 Or tn.Tag = 52 Or tn.Tag = 53 Then
                Me.MnuDel.Enabled = False
                Me.MenuItem14.Enabled = True
                Exit Sub
            End If
            Me.MnuDel.Enabled = True

        Catch
        End Try
    End Sub

#End Region

#Region "Datenhandling"
    Private Sub mcb_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbunterschriftlinks.SelectedValueChanged, mcbunterschriftrechts.SelectedValueChanged, mcbTeam.SelectedValueChanged, cb5.CheckedChanged, cb4.CheckedChanged, cb2.CheckedChanged, cb1.CheckedChanged, cb3.CheckedChanged, cb3_1.CheckedChanged
        If checkchanges Then
            changes = True
        End If
    End Sub

    Private Function Generic_Select(ByVal typ As Integer) As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Select Case typ
            Case 1
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Mitarbeiter"
            Case 2
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Status"
            Case 3
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Marktbereich"
            Case 4
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Niederlassung"
            Case 5
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Kostenstelle"
            Case 6
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Team"
            Case 7
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp"
            Case 8
                scmCmdToExecute.CommandText = "dbo.SP_Profil_DokumenttypHost"
            Case 9
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Mitarbeiter_kube"
            Case 10
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp_uvm"
            Case 11
                scmCmdToExecute.CommandText = "dbo.SP_Profil_Dokumenttyp_ZV"
            Case Else
        End Select
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            Select Case typ
                Case Else
            End Select
            If typ = 1 Then
            End If
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

#End Region

#Region "Load_Save"
    Private Sub Set_Values(ByVal data As String, ByVal ds As DataTable, ByVal node As Integer)
        If data = "" Then Exit Sub
        Dim splitter
        Dim i As Integer
        Dim s As String
        Dim tn As TreeNode
        Dim dv As New DataTable()
        Dim i1 As Integer
        Dim v As Double
        Select Case node
            Case 11, 21, 31
                dv = Me.tmb
            Case 12, 22, 32
                dv = Me.tnl
            Case 13, 23, 33
                dv = Me.tko
            Case 14, 24, 34
                dv = Me.tte
            Case 15, 25, 35
                dv = Me.tpe
            Case 51
                dv = Me.tku
            Case 43
                dv = Me.tdt
            Case 53
                dv = Me.tdh
            Case 44
                dv = Me.tst
            Case 71
                dv = Me.tdtzv
            Case 91
                dv = Me.tdtuvm
            Case Else
        End Select
        s = data
        splitter = Microsoft.VisualBasic.Split(s, ";")
        i = 0
        Try
            Do Until splitter(i) Is Nothing
                Select Case node
                    Case 41
                        Dim p As New edokadb.clsPartner()
                        Try
                            DivFnkt.Searchnode1(Me.TreeView1, node, 0)
                            If DivFnkt.found Then
                                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                                tn = Me.TreeView1.SelectedNode
                                p.cpMainConnectionProvider = conn
                                p.iNRPAR00 = New SqlInt32(CType(splitter(i), Int32))
                                p.SelectOne()
                                tn = tn.Nodes.Add(splitter(i) + " - " + p.sBKPAR00.Value)
                                tn.Tag = splitter(i)
                                Me.FirstNodeWithData = DivFnkt.FoundNode
                                tn.ImageIndex = 4
                                tn.SelectedImageIndex = 4
                                tn.ForeColor = System.Drawing.Color.Red
                            End If
                        Catch ex As Exception
                        Finally
                            p.Dispose()
                            i = i + 1
                        End Try
                    Case 42, 52
                        DivFnkt.Searchnode(Me.TVDokart, splitter(i), 0)
                        If DivFnkt.found Then
                            DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red
                            DivFnkt.FoundNode.ImageIndex = 1
                            If Not DivFnkt.FoundNode.Parent.IsExpanded Then DivFnkt.FoundNode.Parent.ExpandAll()
                        End If
                    Case 54, 58, 59, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 92, 93, 94
                        Try
                            DivFnkt.Searchnode1(Me.TreeView1, node, 0)
                            If DivFnkt.found And splitter(i) <> "" Then
                                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                                tn = Me.TreeView1.SelectedNode
                                tn = tn.Nodes.Add(splitter(i))
                                tn.Tag = splitter(i)
                                If Me.FirstNodeWithData Is Nothing Then
                                    Me.FirstNodeWithData = DivFnkt.FoundNode
                                End If
                                tn.ImageIndex = 4
                                tn.SelectedImageIndex = 4
                                tn.ForeColor = System.Drawing.Color.Red
                            End If
                        Catch
                        End Try
                    Case Else
                        For i1 = 0 To dv.Rows.Count - 1
                            v = Val(splitter(i))
                            If dv.Rows(i1).Item(0) = splitter(i) Then
                                DivFnkt.Searchnode1(Me.TreeView1, node, 99)
                                If DivFnkt.found Then
                                    If Me.FirstNodeWithData Is Nothing Then
                                        Me.FirstNodeWithData = DivFnkt.FoundNode
                                    End If
                                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                                    tn = Me.TreeView1.SelectedNode
                                    tn = tn.Nodes.Add(dv.Rows(i1).Item(1))
                                    tn.Tag = dv.Rows(i1).Item(0)
                                    tn.ImageIndex = 4
                                    tn.SelectedImageIndex = 4
                                    If dv.Rows(i1).Item(2) = False Then
                                        tn.ForeColor = System.Drawing.Color.Gray
                                    Else
                                        tn.ForeColor = System.Drawing.Color.Red
                                    End If
                                End If

                            End If
                        Next
                End Select
                i = i + 1
            Loop
        Catch ex As Exception
            '            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Load_Profil(ByVal profilnr As Long)
        Me.FirstNodeWithData = Nothing
        checkchanges = False
        Me.TreeView1.BeginUpdate()
        Me.TVDokart.BeginUpdate()
        Dim p As New edokadb.clsProfil()
        Dim ma As New edokadb.clsMitarbeiter()
        Dim s As String
        Dim splitter
        Dim i As Integer
        p.cpMainConnectionProvider = conn
        conn.OpenConnection()
        p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
        p.SelectOne()
        init_treeview1()

        'Selektion
        Try
            Set_Values(p.sDpartner.Value, Me.tpe, 41)
            Set_Values(p.sHostpartner.Value, Me.tku, 51)
            Set_Values(p.sVmb.Value, Me.tmb, 11)
            Set_Values(p.sVnl.Value, Me.tnl, 12)
            Set_Values(p.sVkost.Value, Me.tko, 13)
            Set_Values(p.sVteam.Value, Me.tte, 14)
            Set_Values(p.sVma.Value, Me.tpe, 15)

            Set_Values(p.sEmb.Value, Me.tmb, 21)
            Set_Values(p.sEnl.Value, Me.tnl, 22)
            Set_Values(p.sEkost.Value, Me.tko, 23)
            Set_Values(p.sEteam.Value, Me.tte, 24)
            Set_Values(p.sEma.Value, Me.tpe, 25)

            Set_Values(p.sMmb.Value, Me.tmb, 31)
            Set_Values(p.sMnl.Value, Me.tnl, 32)
            Set_Values(p.sMkost.Value, Me.tko, 33)
            Set_Values(p.sMteam.Value, Me.tte, 34)
            Set_Values(p.sMma.Value, Me.tpe, 35)
            Set_Values(p.sDdokstatus.Value, Me.tst, 44)
            Set_Values(p.sDoktyp.Value, Me.tdt, 43)
            Set_Values(p.sDdokart.Value, Me.tst, 42)
            Set_Values(p.sHostdatum3.Value, Me.tpe, 58)
            Set_Values(p.sHosttag3.Value, Me.tpe, 59)
            Set_Values(p.sHosttag1.Value, Me.tpe, 54)

            Set_Values(p.sHostdokart.Value, Me.tpe, 52)
            Set_Values(p.sHostdoktyp.Value, Me.tdh, 53)

            'Set_Values(p.sHostdoktyp.Value, Me.tdh, 53)
            Set_Values(p.sZvauftraggeber.Value, Me.tdh, 74)
            Set_Values(p.sZvauftragnr.Value, Me.tdh, 73)
            Set_Values(p.sZvbetrag.Value, Me.tdh, 75)
            Set_Values(p.sZvclearingnr.Value, Me.tdh, 76)
            Set_Values(p.sZviso.Value, Me.tdh, 77)
            Set_Values(p.sZvkontobeg.Value, Me.tdh, 78)
            Set_Values(p.sZvpcnr.Value, Me.tdh, 79)
            Set_Values(p.sZvposten.Value, Me.tdh, 80)
            Set_Values(p.sZvreferenznr.Value, Me.tdh, 81)
            Set_Values(p.sZvswift.Value, Me.tdh, 82)
            Set_Values(p.sZvverarbeitungsart.Value, Me.tdh, 83)
            Set_Values(p.sZvzahlungsart.Value, Me.tdh, 84)
            Set_Values(p.sZvdokumenttyp.Value, Me.tdtzv, 71)

            Set_Values(p.sUvmauftragnr.Value, Me.tdh, 93)
            Set_Values(p.sUvmdoktyp.Value, Me.tdtuvm, 91)

            DivFnkt.Searchnode1(Me.TreeView1, 51, 0)
            If DivFnkt.found Then
                If p.sHostpartner.Value <> "" Then
                    '                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If


            DivFnkt.Searchnode1(Me.TreeView1, 42, 0)
            If DivFnkt.found Then
                If p.sDdokart.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If
            DivFnkt.Searchnode1(Me.TreeView1, 52, 0)
            If DivFnkt.found Then
                If p.sHostdokart.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If
            DivFnkt.Searchnode1(Me.TreeView1, 58, 0)
            If DivFnkt.found Then
                If p.sHosttag3.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            DivFnkt.Searchnode1(Me.TreeView1, 59, 0)
            If DivFnkt.found Then
                If p.sHostdatum3.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            DivFnkt.Searchnode1(Me.TreeView1, 54, 0)
            If DivFnkt.found Then
                If p.sHosttag1.Value <> "" Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    If Me.FirstNodeWithData Is Nothing Then Me.FirstNodeWithData = DivFnkt.FoundNode
                Else
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            'Unterschriften/Hinweise

            Me.mcbunterschriftlinks.SelectedValue = p.iUnterschriftlinks.Value
            Me.mcbunterschriftrechts.SelectedValue = p.iUnterschriftrechts.Value
            Me.mcbTeam.SelectedValue = p.iTeam.Value
            If p.iHw1.IsNull Then Me.cb1.Checked = False Else Me.cb1.Checked = p.iHw1.Value
            If p.iHw2.IsNull Then Me.cb2.Checked = False Else Me.cb2.Checked = p.iHw2.Value
            If p.iHw3.IsNull Then Me.cb3.Checked = False Else Me.cb3.Checked = p.iHw3.Value
            If p.iHw4.IsNull Then Me.cb4.Checked = False Else Me.cb4.Checked = p.iHw4.Value
            If p.iHw5.IsNull Then Me.cb5.Checked = False Else Me.cb5.Checked = p.iHw5.Value
            If p.iHw6.IsNull Then Me.cb3_1.Checked = False Else Me.cb3_1.Checked = p.iHw6.Value


            'Darstellung/Sortierung
            Try
                Me.colbtn1.BackColor = colconv.ConvertFromString(p.sColor1.Value)
                Me.colbtn2.BackColor = colconv.ConvertFromString(p.sColor2.Value)
                Me.colbtn3.BackColor = colconv.ConvertFromString(p.sColor3.Value)
                Me.colbtn4.BackColor = colconv.ConvertFromString(p.sColor4.Value)
                Me.colbtn5.BackColor = colconv.ConvertFromString(p.sColor5.Value)
                Me.colbtn6.BackColor = colconv.ConvertFromString(p.sColor6.Value)
            Catch
            End Try

            Me.lbselect.Items.Clear()
            s = p.sSort.Value
            Try
                splitter = Microsoft.VisualBasic.Split(s, ";")
                i = 0
                Do Until splitter(i) Is Nothing
                    If splitter(i) <> "" Then
                        Me.lbselect.Items.Add(splitter(i))
                    End If
                    i = i + 1
                Loop
            Catch
            End Try

            Me.LBSelectHost.Items.Clear()
            s = p.sHosttag2.Value
            Try
                splitter = Microsoft.VisualBasic.Split(s, ";")
                i = 0
                Do Until splitter(i) Is Nothing
                    If splitter(i) <> "" Then
                        Me.LBSelectHost.Items.Add(splitter(i))
                    End If
                    i = i + 1
                Loop
            Catch
            End Try

            Me.txtdatum1.Text = Convert_Seldate_von(p.sDatum1.Value)
            If p.sDatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum1.Value, 2) = "(h" Then Me.cbrollend1.Checked = True
            Me.txtdatum2.Text = Convert_Seldate_bis(p.sDatum2.Value)
            If p.sDatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum2.Value, 2) = "(h" Then Me.cbrollend2.Checked = True
            Me.txtdatum3.Text = Convert_Seldate_von(p.sDatum3.Value)
            If p.sDatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum3.Value, 2) = "(h" Then Me.cbrollend3.Checked = True
            Me.txtdatum4.Text = Convert_Seldate_bis(p.sDatum4.Value)
            If p.sDatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum4.Value, 2) = "(h" Then Me.cbrollend4.Checked = True
            Me.txtdatum5.Text = Convert_Seldate_von(p.sDatum5.Value)
            If p.sDatum5.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum5.Value, 2) = "(h" Then Me.cbrollend5.Checked = True
            Me.txtdatum6.Text = Convert_Seldate_bis(p.sDatum6.Value)
            If p.sDatum6.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sDatum6.Value, 2) = "(h" Then Me.cbrollend6.Checked = True

            Me.HostDatum1.Text = Convert_Seldate_von(p.sHostdatum1.Value)
            If p.sHostdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sHostdatum1.Value, 2) = "(h" Then Me.cbrollend8.Checked = True
            Me.HostDatum2.Text = Convert_Seldate_bis(p.sHostdatum2.Value)
            If p.sHostdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sHostdatum2.Value, 2) = "(h" Then Me.cbrollend9.Checked = True

            Me.txtdatum1uvm.Text = Convert_Seldate_von(p.sUvmdatum1.Value)
            If p.sUvmdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum1.Value, 2) = "(h" Then Me.cbuvmrollend1.Checked = True
            Me.txtdatum2uvm.Text = Convert_Seldate_von(p.sUvmdatum2.Value)
            If p.sUvmdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum2.Value, 2) = "(h" Then Me.cbuvmrollend2.Checked = True
            Me.txtdatum3uvm.Text = Convert_Seldate_von(p.sUvmdatum3.Value)
            If p.sUvmdatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum3.Value, 2) = "(h" Then Me.cbuvmrollend3.Checked = True
            Me.txtdatum4uvm.Text = Convert_Seldate_von(p.sUvmdatum4.Value)
            If p.sUvmdatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sUvmdatum4.Value, 2) = "(h" Then Me.cbuvmrollend4.Checked = True

            Me.txtdatum1zv.Text = Convert_Seldate_von(p.sZvdatum1.Value)
            If p.sZvdatum1.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum1.Value, 2) = "(h" Then Me.cbzvrollend1.Checked = True
            Me.txtdatum2zv.Text = Convert_Seldate_von(p.sZvdatum2.Value)
            If p.sZvdatum2.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum2.Value, 2) = "(h" Then Me.cbzvrollend2.Checked = True
            Me.txtdatum3zv.Text = Convert_Seldate_von(p.sZvdatum3.Value)
            If p.sZvdatum3.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum3.Value, 2) = "(h" Then Me.cbzvrollend3.Checked = True
            Me.txtdatum4zv.Text = Convert_Seldate_von(p.sZvdatum4.Value)
            If p.sZvdatum4.Value <> "(heute)-999999" And Microsoft.VisualBasic.Left(p.sZvdatum4.Value, 2) = "(h" Then Me.cbzvrollend4.Checked = True

            Me.hostinklmavip.Checked = p.bInklhostmavip.Value = True

            Dim div As Boolean = False
            If p.sDatum1.Value <> "(heute)-999999" Then div = True
            If p.sDatum2.Value <> "(heute)" And p.sDatum2.Value <> "(heute)-0" Then div = True
            If p.sDatum3.Value <> "(heute)-999999" Then div = True
            If p.sDatum4.Value <> "(heute)" And p.sDatum4.Value <> "(heute)-0" Then div = True
            If p.sDatum5.Value <> "(heute)-999999" Then div = True
            If p.sDatum6.Value <> "(heute)" And p.sDatum6.Value <> "(heute)-0" Then div = True
            If div Then
                DivFnkt.Searchnode(Me.TreeView1, 45, 0)
                If DivFnkt.found Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            div = False
            If p.sHostdatum1.Value <> "(heute)-999999" Then div = True
            If p.sHostdatum2.Value <> "(heute)" And p.sHostdatum2.Value <> "(heute)-0" Then div = True


            If div Then
                DivFnkt.Searchnode(Me.TreeView1, 55, 0)
                If DivFnkt.found Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            If p.sSort.Value <> "" Then
                DivFnkt.Searchnode(Me.TreeView1, 60, 0)
                If DivFnkt.found Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            If p.sHosttag2.Value <> "" Then
                DivFnkt.Searchnode(Me.TreeView1, 61, 0)
                If DivFnkt.found Then
                    DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                End If
            End If

            Dim div1 As Boolean
            Me.expanduvm = False
            Me.expandzv = False
            div1 = False
            If p.sUvmdatum1.Value <> "(heute)-999999" Then div1 = True
            If p.sUvmdatum2.Value <> "(heute)" And p.sUvmdatum2.Value <> "(heute)-0" Then div1 = True
            If p.sUvmdatum3.Value <> "(heute)-999999" Then div1 = True
            If p.sUvmdatum4.Value <> "(heute)" And p.sUvmdatum4.Value <> "(heute)-0" Then div1 = True
            If div1 Then
                DivFnkt.Searchnode(Me.TreeView1, 92, 0)
                If DivFnkt.found Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    DivFnkt.FoundNode.Parent.Expand()
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                    Me.expanduvm = True
                End If
            End If
            div1 = False
            If p.sZvdatum1.Value <> "(heute)-999999" Then div1 = True
            If p.sZvdatum2.Value <> "(heute)" And p.sZvdatum2.Value <> "(heute)-0" Then div1 = True
            If p.sZvdatum3.Value <> "(heute)-999999" Then div1 = True
            If p.sZvdatum4.Value <> "(heute)" And p.sZvdatum4.Value <> "(heute)-0" Then div1 = True
            If div1 Then
                DivFnkt.Searchnode(Me.TreeView1, 72, 0)
                If DivFnkt.found Then
                    'DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Blue
                    DivFnkt.FoundNode.ImageIndex = 4
                    DivFnkt.FoundNode.Parent.Expand()
                    If Me.FirstNodeWithData Is Nothing Then
                        Me.FirstNodeWithData = DivFnkt.FoundNode
                    End If
                    Me.expandzv = True
                End If
            End If

            Me.cinklalt.Checked = p.bInklalt.Value = True
            DivFnkt.Searchnode1(Me.TreeView1, 62, 99)
            If DivFnkt.found Then
                Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                If Me.cinklalt.Checked = True Then
                    Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Red
                Else
                    Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Black
                End If
            End If

            If p.sVma.Value = "" And p.sVmb.Value = "" And p.sVnl.Value = "" And p.sVkost.Value = "" And p.sVteam.Value = "" Then
            Else
                DivFnkt.Searchnode1(Me.TreeView1, 1, 99)
                If DivFnkt.found Then
                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                    Me.TreeView1.SelectedNode.ExpandAll()
                End If
            End If
            If p.sMma.Value = "" And p.sMmb.Value = "" And p.sMnl.Value = "" And p.sMkost.Value = "" And p.sMteam.Value = "" Then
            Else
                DivFnkt.Searchnode1(Me.TreeView1, 1, 99)
                If DivFnkt.found Then
                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                    Me.TreeView1.SelectedNode.ExpandAll()
                End If
            End If
            If p.sEma.Value = "" And p.sEmb.Value = "" And p.sEnl.Value = "" And p.sEkost.Value = "" And p.sEteam.Value = "" Then
            Else
                DivFnkt.Searchnode1(Me.TreeView1, 1, 99)
                If DivFnkt.found Then
                    Me.TreeView1.SelectedNode = DivFnkt.FoundNode
                    Me.TreeView1.SelectedNode.ExpandAll()
                End If
            End If


            'Profilunabhängige Daten
            ma.cpMainConnectionProvider = conn
            ma.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
            ma.SelectOne()
            Try
                '               Me.FirstNodeWithData.ForeColor = System.Drawing.Color.Blue
            Catch
            End Try
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
        conn.CloseConnection(True)
        'shieb        Me.TreeView1.EndUpdate()
        Me.TVDokart.EndUpdate()

        checkchanges = True
        Try
        Catch
            If Me.FirstNodeWithData Is Nothing Then
                Me.TreeView1.SelectedNode = Me.TreeView1.Nodes(0)
            Else
                Me.TreeView1.SelectedNode = Me.FirstNodeWithData
            End If
        End Try
        '  Me.TreeView1.BeginUpdate()
        Update_Datumnode(45, Me.txtdatum1, Me.txtdatum2, Me.cbrollend1, Me.cbrollend2, "Erstellung")
        Update_Datumnode(45, Me.txtdatum3, Me.txtdatum4, Me.cbrollend3, Me.cbrollend4, "Mutation")
        Update_Datumnode(45, Me.txtdatum5, Me.txtdatum6, Me.cbrollend5, Me.cbrollend6, "Archivdatum")
        Update_Datumnode(55, Me.HostDatum1, Me.HostDatum2, Me.cbrollend8, Me.cbrollend9, "Valuta")
        Update_Datumnode(72, Me.txtdatum1zv, Me.txtdatum2zv, Me.cbzvrollend1, Me.cbzvrollend2, "Valuta")
        Update_Datumnode(72, Me.txtdatum3zv, Me.txtdatum4zv, Me.cbzvrollend3, Me.cbzvrollend4, "Archivierung")
        Update_Datumnode(92, Me.txtdatum1uvm, Me.txtdatum2uvm, Me.cbuvmrollend1, Me.cbuvmrollend2, "Erstellung")
        Update_Datumnode(92, Me.txtdatum3uvm, Me.txtdatum4uvm, Me.cbuvmrollend3, Me.cbuvmrollend4, "Archivierung")

        Me.TreeView1.ExpandAll()
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        nodeswithdata(90)
        nodeswithdata(72)
        nodeswithdata(92)

        Me.TreeView1.EndUpdate()

    End Sub

    Private Sub Update_Datumnode(ByVal node As Integer, ByVal txt1 As TextBox, ByVal txt2 As TextBox, ByVal cb1 As CheckBox, ByVal cb2 As CheckBox, ByVal Nodebezeichnung As String)
        DivFnkt.Searchnode1(Me.TreeView1, node, 99)
        If txt1.Text <> "" Or txt2.Text <> "" Then
            Dim tn As New TreeNode()
            tn = DivFnkt.FoundNode.Nodes.Add(Nodebezeichnung)
            tn.ImageIndex = 4
            tn.SelectedImageIndex = 4
            tn.ForeColor = System.Drawing.Color.Red
            If txt1.Text <> "" Then
                tn.Text = tn.Text + " von " + txt1.Text
                If cb1.Checked = True Then tn.Text = tn.Text + " (rollend)"
            End If
            If txt2.Text <> "" Then
                tn.Text = tn.Text + " bis " + txt2.Text
                If cb2.Checked = True Then tn.Text = tn.Text + " (rollend)"
            End If
        End If

    End Sub

    Private Function Convert_Seldate_von(ByVal d As String) As String
        Dim splitter
        Dim da As DateTime
        Dim i As Integer
        Dim ds As String
        ds = d
        If ds = "" Or ds = "(heute)-999999" Then
            Return ""
        End If
        If Microsoft.VisualBasic.Left(d, 1) = "(" Then
            d = Mid(d, 2, Len(d) - 1)
            splitter = Microsoft.VisualBasic.Split(d, "-")
            Try
                i = Val(splitter(1))
                da = Now
                da = DateAdd(DateInterval.Day, i * -1, Now)
                If i = 0 Then Return CutDate(Now) Else Return CutDate(da)

            Catch ex As Exception
                Return ""
            End Try

        Else
            Return d
        End If
    End Function

    Private Function Convert_Seldate_bis(ByVal d As String) As String
        Dim splitter
        Dim da As DateTime
        Dim i As Integer
        Dim ds As String
        ds = d
        If ds = "" Or ds = "(heute)-999999" Then
            Return ""
        End If
        If Microsoft.VisualBasic.Left(d, 1) = "(" Then
            d = Mid(d, 2, Len(d) - 1)
            splitter = Microsoft.VisualBasic.Split(d, "-")
            Try
                i = Val(splitter(1))
                da = Now
                da = DateAdd(DateInterval.Day, i * -1, Now)
                If i = 0 Then Return CutDate(da) Else Return CutDate(da)


            Catch ex As Exception
                Return ""
            End Try

        Else
            Return d
        End If
    End Function


    Private Sub Save_Profile()
        Dim p As New edokadb.clsProfil()
        Dim tn As TreeNode
        Dim d As DataTable
        Dim tmptreeview As New TreeView()
        p.cpMainConnectionProvider = conn
        p.iProfilnr = New SqlInt32(CType(Me.ProfilNr, Int32))
        p.SelectOne()

        'Selektion
        Dim s As String

        Dim i As Integer
        Me.TreeView1.BeginUpdate()
        p.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
        p.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))

        p.sVmb = New SqlString(CType(GetNodeDatastring(11), String))
        p.sVnl = New SqlString(CType(GetNodeDatastring(12), String))
        p.sVkost = New SqlString(CType(GetNodeDatastring(13), String))
        p.sVteam = New SqlString(CType(GetNodeDatastring(14), String))
        p.sVma = New SqlString(CType(GetNodeDatastring(15), String))

        p.sEmb = New SqlString(CType(GetNodeDatastring(21), String))
        p.sEnl = New SqlString(CType(GetNodeDatastring(22), String))
        p.sEkost = New SqlString(CType(GetNodeDatastring(23), String))
        p.sEteam = New SqlString(CType(GetNodeDatastring(24), String))
        p.sEma = New SqlString(CType(GetNodeDatastring(25), String))

        p.sMmb = New SqlString(CType(GetNodeDatastring(31), String))
        p.sMnl = New SqlString(CType(GetNodeDatastring(32), String))
        p.sMkost = New SqlString(CType(GetNodeDatastring(33), String))
        p.sMteam = New SqlString(CType(GetNodeDatastring(34), String))
        p.sMma = New SqlString(CType(GetNodeDatastring(35), String))

        p.sDpartner = New SqlString(CType(GetNodeDatastring(41), String))
        p.sDoktyp = New SqlString(CType(GetNodeDatastring(43), String))
        p.sDdokstatus = New SqlString(CType(GetNodeDatastring(44), String))

        p.sHostpartner = New SqlString(CType(GetNodeDatastring(51), String))
        p.sHostdoktyp = New SqlString(CType(GetNodeDatastring(53), String))
        p.bInklhostmavip = New SqlBoolean(CType(Me.hostinklmavip.Checked, Boolean))
        p.sHosttag3 = New SqlString(CType(GetNodeDatastring(59), String))
        p.sHostdatum3 = New SqlString(CType(GetNodeDatastring(58), String))
        p.sHosttag1 = New SqlString(CType(GetNodeDatastring(54), String))

        tmptreeview = Me.TVDokart
        s = ""
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            s = s + ";" + DivFnkt.FoundNode.Tag
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While
        'tmptreeview.Dispose()
        p.sDdokart = New SqlString(CType(s, String))

        tmptreeview = Me.TVHostDok
        s = ""
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            s = s + ";" + DivFnkt.FoundNode.Tag
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While
        p.sHostdokart = New SqlString(CType(s, String))

        'p.bInklmavip = New SqlBoolean(CType(Me.cbmavip.Checked, Boolean))
        p.bInklalt = New SqlBoolean(CType(Me.cinklalt.Checked, Boolean))

        s = ""
        For i = 0 To Me.lbselect.Items.Count - 1
            s = s + Me.lbselect.Items(i) + ";"
        Next
        p.sSort = New SqlString(CType(s, String))

        s = ""
        For i = 0 To Me.LBSelectHost.Items.Count - 1
            s = s + Me.LBSelectHost.Items(i) + ";"
        Next
        p.sHosttag2 = New SqlString(CType(s, String))

        'Unterschriften / Hinweise
        If Me.mcbunterschriftlinks.SelectedValue = Nothing Then
            p.iUnterschriftlinks = New SqlInt32(CType(0, Int32))
        Else
            p.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32))
        End If
        If Me.mcbunterschriftrechts.SelectedValue = Nothing Then
            p.iUnterschriftrechts = New SqlInt32(CType(0, Int32))
        Else
            p.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32))
        End If
        If Me.mcbTeam.SelectedText = Nothing Then
            p.iTeam = New SqlInt32(CType(0, Int32))
        Else
            p.iTeam = New SqlInt32(CType(Me.mcbTeam.SelectedValue, Int32))
        End If

        If Me.cb1.Checked = True Then
            p.iHw1 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw1 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb2.Checked = True Then
            p.iHw2 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw2 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb3.Checked = True Then
            p.iHw3 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw3 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb3_1.Checked = True Then
            p.iHw6 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw6 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb4.Checked = True Then
            p.iHw4 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw4 = New SqlInt32(CType(0, Int32))
        End If
        If Me.cb5.Checked = True Then
            p.iHw5 = New SqlInt32(CType(1, Int32))
        Else
            p.iHw5 = New SqlInt32(CType(0, Int32))
        End If

        If colconv.ConvertToString(Me.Profile.SelectedNode.BackColor) = colconv.ConvertToString(System.Drawing.Color.LightBlue) Or p.bStandard.Value = True Then
            p.bStandard = New SqlBoolean(CType(True, Boolean))
        Else
            p.bStandard = New SqlBoolean(CType(False, Boolean))
        End If

        'Colors
        p.sColor1 = New SqlString(CType(colconv.ConvertToString(Me.colbtn1.BackColor), String))
        p.sColor2 = New SqlString(CType(colconv.ConvertToString(Me.colbtn2.BackColor), String))
        p.sColor3 = New SqlString(CType(colconv.ConvertToString(Me.colbtn3.BackColor), String))
        p.sColor4 = New SqlString(CType(colconv.ConvertToString(Me.colbtn4.BackColor), String))
        p.sColor5 = New SqlString(CType(colconv.ConvertToString(Me.colbtn5.BackColor), String))
        p.sColor6 = New SqlString(CType(colconv.ConvertToString(Me.colbtn6.BackColor), String))

        'Selektionsdaten
        p.sDatum1 = New SqlString(CType(Me.datumtext1.Text, String))
        p.sDatum2 = New SqlString(CType(Me.datumtext2.Text, String))
        p.sDatum3 = New SqlString(CType(Me.datumtext3.Text, String))
        p.sDatum4 = New SqlString(CType(Me.datumtext4.Text, String))
        p.sDatum5 = New SqlString(CType(Me.datumtext5.Text, String))
        p.sDatum6 = New SqlString(CType(Me.datumtext6.Text, String))
        p.sHostdatum1 = New SqlString(CType(Me.DatumHostText1.Text, String))
        p.sHostdatum2 = New SqlString(CType(Me.DatumHostText2.Text, String))

        Dim s1 As String
        Dim s2 As String

        If Me.Profname <> "" Then p.sBezeichnung = New SqlString(CType(Profname, String))
        conn.OpenConnection()
        p.Update()

        conn.CloseConnection(True)
        p.Dispose()
        Me.TreeView1.EndUpdate()
        changes = False
        Me.Load_Profil(Me.ProfilNr)
        Me.TreeView1.ExpandAll()
        Me.Profil_Ungueltig = False
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        nodeswithdata(90)
        nodeswithdata(72)
        nodeswithdata(92)
        'If Me.FirstNodeWithData Is Nothing Then
        'Me.Profil_Ungueltig = True
        'Exit Sub
        'End If
    End Sub

    Public Function plausi_edoka(ByVal p As edokadb.clsProfil) As Boolean
        Dim ma As String
        Dim te As String
        Dim mb As String
        Dim nl As String
        Dim ko As String

        Dim d1 As Date
        Dim d2 As Date
        Dim d3 As Date
        Dim t1 As Integer
        Dim t2 As Integer
        Dim t3 As Integer

        If p.sDpartner.Value <> "" Then Return True
        ma = p.sVma.Value + p.sMma.Value + p.sEma.Value
        te = p.sVteam.Value + p.sMteam.Value + p.sEteam.Value
        mb = p.sMmb.Value + p.sVmb.Value + p.sEmb.Value
        nl = p.sVnl.Value + p.sMnl.Value + p.sEnl.Value
        ko = p.sVkost.Value + p.sMkost.Value + p.sEkost.Value

        If p.sDatum1.Value = "(heute)" Then d1 = Now Else d1 = p.sDatum1.Value
        If p.sDatum3.Value = "(heute)" Then d2 = Now Else d2 = p.sDatum3.Value
        If p.sDatum5.Value = "(heute)" Then d3 = Now Else d3 = p.sDatum5.Value


        If ma <> "" And te = "" And mb = "" And nl = "" Then
            If t1 <= 365 And t2 <= 365 And t3 <> 365 Then
                Return True
            Else
                MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
                Return False
            End If
        End If

        If te <> "" Or ko <> "" Then
            If t1 <= 90 And t2 <= 90 And t3 <= 90 Then
                Return True
            Else
                MyMsg.show_standardmessage(93, MsgBoxStyle.Critical)
                Return False
            End If
        End If

        If nl <> "" Then
            If t1 <= 30 And t2 <= 30 And t3 <= 30 Then
                Return True
            Else
                MyMsg.show_standardmessage(94, MsgBoxStyle.Critical)
            End If
        End If

        If mb <> "" Then
            If t1 <= 7 And t2 <= 7 And t3 <= 7 Then
                Return True
            Else
                MyMsg.show_standardmessage(94, MsgBoxStyle.Critical)
            End If
        End If

        If p.sDdokart.Value <> "" Then
            If t1 <= 30 And t2 <= 30 And t3 <= 30 Then
                Return True
            Else
                MyMsg.show_standardmessage(96, MsgBoxStyle.Critical)
            End If
        End If




    End Function

    Public Function plausi_host(ByVal p As edokadb.clsProfil) As Boolean
    End Function

    Private Function ValueList(ByVal c As ListView) As String
        Dim s As String
        s = ""
        For i = 0 To c.Items.Count - 1
            s = s + c.Items(i).Text + ";"
            If UCase(c.Name) = "SELPARTNER" Then
                li = c.Items(i)
                s = s + li.SubItems(1).Text + ";"
            End If
        Next
        Return s
    End Function

    Private Function GetNodeData(ByVal tnParent As TreeNode, ByRef iParent As Integer) As String
        Dim tn As TreeNode
        If tnParent.GetNodeCount(True) > 0 Then
            tn = tnParent.Nodes(0)
        Else
            tn = Nothing
        End If
        Do Until tn Is Nothing
            Try
                If tn.Parent.Tag = iParent Then
                    Me.NodeText = Me.NodeText & ";" & tn.Tag
                End If
            Catch ex As Exception
            End Try

            If tn.GetNodeCount(True) > 0 Then
                Call GetNodeData(tn, iParent)
            End If
            tn = tn.NextNode
        Loop
    End Function

    Private Function GetNodeDatastring(ByVal iparent As Integer) As String
        Me.NodeText = ""
        DivFnkt.Searchnode1(Me.TreeView1, iparent, 0)
        If DivFnkt.found Then
            GetNodeData(DivFnkt.FoundNode, iparent)
            Try
                Me.NodeText = Microsoft.VisualBasic.Right(Me.NodeText, Len(Me.NodeText) - 1)
            Catch
                Me.NodeText = ""
            End Try
        End If
        Return Me.NodeText
    End Function

    Private Sub check_changes()
        If On_Load Then Exit Sub
        If changes Then
            If Me.FirstNodeWithData Is Nothing Then
                Me.Profil_Ungueltig = True
            End If
            If MyMsg.Show_MessageYesNo(2) = MsgBoxResult.Yes Then
                Me.Save_Profile()
            End If
        End If
    End Sub

#End Region

#Region "Diverses"

    Private Sub Profile_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Profile.AfterSelect
        If Not On_Load Then
            check_changes()
            If Me.Profil_Ungueltig Then
                Me.Profile.SelectedNode = Me.savenode
                MyMsg.show_standardmessage(105, MsgBoxStyle.Critical)
                Exit Sub
            End If
            Me.savenode = Me.Profile.SelectedNode
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            check_changes()
            Me.ProfilNr = Me.Profile.SelectedNode.Tag
            init_treeview1()
            frmProfil_Load(sender, e)
            Me.TreeView1.SelectedNode = Nothing
        End If
        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles colbtn6.Click, colbtn5.Click, colbtn4.Click, colbtn3.Click, colbtn2.Click, colbtn1.Click
        Dim cName As String = CType(sender, System.Windows.Forms.Button).Name
        If Me.ColorDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub

        Me.ColorDialog1.AnyColor = True
        Button5_Click(sender, e)
        Select Case cName
            Case "colbtn1"
                Me.colbtn1.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn2"
                Me.colbtn2.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn3"
                Me.colbtn3.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn4"
                Me.colbtn4.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn5"
                Me.colbtn5.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
            Case "colbtn6"
                Me.colbtn6.BackColor = Me.ColorDialog1.Color
                If checkchanges Then changes = True
        End Select
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        If On_Load Then Exit Sub
        If oninit Then Exit Sub
        '        Me.PnlDokumentDaten.Visible = False
        '        Me.Panel3.Visible = False
        '        Me.PnlPartner.Visible = False
        '        Me.PnlDokumentart.Visible = False
        '        Me.TVDokart.Visible = False
        '        Me.TVHostDok.Visible = False
        '        Me.pnlhostdiv.Visible = False
        '        Me.Panel4.Visible = False

        Try
            If Me.TreeView1.SelectedNode.ImageIndex < 6 Then
                Me.TreeView1.SelectedNode.ImageIndex = 4
                Me.TreeView1.SelectedNode.SelectedImageIndex = 4
            End If
            If Me.TreeView1.SelectedNode.Tag = 11 Or Me.TreeView1.SelectedNode.Tag = 21 Or Me.TreeView1.SelectedNode.Tag = 31 Then
                Me.C1TrueDBGrid1.DataSource = tmb
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 12 Or Me.TreeView1.SelectedNode.Tag = 22 Or Me.TreeView1.SelectedNode.Tag = 32 Then
                Me.C1TrueDBGrid1.DataSource = tnl
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 13 Or Me.TreeView1.SelectedNode.Tag = 23 Or Me.TreeView1.SelectedNode.Tag = 33 Then
                Me.C1TrueDBGrid1.DataSource = tko
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 14 Or Me.TreeView1.SelectedNode.Tag = 24 Or Me.TreeView1.SelectedNode.Tag = 34 Then
                Me.C1TrueDBGrid1.DataSource = tte
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 15 Or Me.TreeView1.SelectedNode.Tag = 25 Or Me.TreeView1.SelectedNode.Tag = 35 Then
                Me.C1TrueDBGrid1.DataSource = tpe
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 41 Then
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 42 Then
                Me.PnlDokumentart.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 43 Then
                Me.C1TrueDBGrid1.DataSource = tdt
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 44 Then
                Me.C1TrueDBGrid1.DataSource = tst
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 45 Then
                Me.Panel3.Visible = False
                Me.PnlDokumentDaten.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 62 Then
                Me.Panel3.Visible = False
                Me.PnlDokumentDaten.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            'Edoka-Dokument
            'If Me.TreeView1.SelectedNode.Tag = 41 Then
            '    Me.Partnerdialog.TopMost = True
            '    Me.Partnerdialog.Show()
            '    Me.Partnerdialog.NoClose = True
            '    Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            '    '
            '    '                Me.Panel3.Visible = False
            '    '                Me.PnlDokumentDaten.Visible = False
            '    '                Me.PnlPartner.Visible = True
            '    '                Me.TextBox1.Focus()
            '    '                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            'End If
            'Host-kundenbetreuer
            If Me.TreeView1.SelectedNode.Tag = 51 Then
                Me.C1TrueDBGrid1.DataSource = tku
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 42 Then
                Me.TVDokart.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 52 Then
                Me.TVHostDok.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 53 Then
                Me.C1TrueDBGrid1.DataSource = tdh
                Me.Panel3.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 55 Then
                Me.pnlhostdiv.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 58 Then
                Me.pnlhostdiv.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 54 Then
                Me.pnlhostdiv.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 59 Then
                Me.pnlhostdiv.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 60 Then
                Me.Panel4.Visible = True
                Me.lbSortfields.Items.Clear()
                Me.lbSortfields.Items.AddRange(New Object() {"Bemerkung", "Bezeichnung", "Dokumentart", "DokumentID", "Ersteller", "Erstellungsdatum", "Mutationsdatum", "Mutierer", "Status", "Termin", "Verantwortlicher", "Zuständiger"})
                Remove_Selected_Items(Me.lbselect)
                Me.LBSelectHost.Visible = False
                Me.lbselect.Visible = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            If Me.TreeView1.SelectedNode.Tag = 61 Then
                Me.Panel4.Visible = True
                Me.lbSortfields.Items.Clear()
                Me.lbSortfields.Items.AddRange(New Object() {"DokumentID", "Dokumenttyp-Nr", "Isin-Nr", "Valutadatum", "Valorennr", "VVExtern1", "VVExtern2"})
                Remove_Selected_Items(Me.LBSelectHost)
                Me.LBSelectHost.Visible = True
                Me.lbselect.Visible = False
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
            'hutter
            Dim i As Integer
            Dim w As Integer
            w = Me.C1TrueDBGrid1.Columns.Count - 2
            w = (Me.C1TrueDBGrid1.Width - 150) / w
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Width = 150
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False
            For i = 3 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1
                Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = w
            Next

            Try
                Me.C1TrueDBGrid1.Columns("Aktiv").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                Me.C1TrueDBGrid1.Columns("Aktiv").FilterText = True
                Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Aktiv").Width = 50
            Catch
            End Try

            'For i = 1 To Me.C1TrueDBGrid1.Columns.Count - 1
            '    If Me.C1TrueDBGrid1.Columns.Count > 3 Then
            '        Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = 80
            '        Me.C1TrueDBGrid1.Splits(0).DisplayColumns(2).Width = Me.C1TrueDBGrid1.Width - 100
            '    Else
            '        Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = 100
            '    End If
            'Next


            'For i = 0 To Me.C1TrueDBGrid1.Columns.Count - 1
            '    If i <> 1 And i <> 2 And i <> 3 Then
            '        Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Visible = False
            '    Else
            '        If i = 1 Then
            '            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = Me.C1TrueDBGrid1.Width - 150
            '        Else
            '            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = 100
            '        End If
            '    End If
            'Next
        Catch
        End Try

        'Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False
    End Sub


#End Region

#Region "Partnersuche"
    Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown
        If e.KeyCode = Keys.Return Then btnPartnersuche_Click(sender, e)
    End Sub

    Private Sub btnPartnersuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnersuche.Click
        Me.PartnerList.DataSource = Nothing
        Me.PartnerList.DataMember = Nothing
        If Me.TextBox1.Text <> "" Then
            Try
                Dim d As Double
                d = Val(Me.TextBox1.Text)
                If d = 0 Then
                    MyMsg.show_standardmessage(20, MsgBoxStyle.Critical)
                    Me.TextBox1.Focus()
                    Exit Sub
                End If
                partner = mypartner.search_partner(d, 50, 0)
            Catch
                MyMsg.show_standardmessage(20, MsgBoxStyle.Critical)
                Me.TextBox1.Focus()
                Exit Sub
            End Try
        Else
            If Me.TextBox2.Text <> "" Then
                partner = mypartner.search_partner(Me.TextBox2.Text, 50, 1)
            Else
                partner = mypartner.search_partner(Me.TextBox3.Text, 50, 2)
            End If
        End If
        If partner.Rows.Count = 0 Then
            MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation)
        Else
            Me.PartnerList.DataSource = partner
            Me.PartnerList.DataMember = "Partner"
            SpaltenTitel_Aktualisieren()
            Dim i As Long
            Dim ii As Long
        End If
    End Sub

    Public Sub SpaltenTitel_Aktualisieren()
        'Spaltentitel setzen
        Dim titel As New EDOKA.MySpaltenTitel()
        Dim ts As New EDOKA.Tabellenspalte()
        Dim i As Integer
        Dim t As New DataTable()
        Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim s As String

        t = partner
        ts.Tabelle = "Partner"
        For i = 0 To Me.PartnerList.Columns.Count - 1
            s = Me.PartnerList.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.PartnerList.Columns(i).Caption = ts.spaltenname
            If Me.PartnerList.Columns(i).Caption = "" Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            '            If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            If ts.locked Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
            End If

            If ts.AlsHacken Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If

            'Präsentation von aktiv
            If Me.PartnerList.Columns(i).DataField = "aktiv" Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
                Me.PartnerList.Columns(i).DefaultValue = True
                Me.PartnerList.Columns(i).FilterText = True
            End If
            If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
                Me.PartnerList.Columns(i).DefaultValue = Now
            End If
        Next
    End Sub

    Private Sub PartnerList_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
        If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
            e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
        End If
    End Sub

#End Region

#Region "Datenselektion"
    Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick, C1TrueDBGrid1.DoubleClick
        Dim tn As New TreeNode()
        If Me.TreeView1.SelectedNode.Tag < 10 Then
            MsgBox("Bitte wählen Sie einen Knoten aus, der das Hinzufügen von Selektionskriterien erlaubt.")
            Exit Sub
        End If

        ' Änderung durch Partnerselektion
        If Me.TreeView1.SelectedNode.Tag = 41 Then
            tn = Me.TreeView1.SelectedNode
            tn = tn.Nodes.Add(Str(Me.PartnerList.Columns(0).Value) + " - " + Me.PartnerList.Columns(1).Value)
            tn.Tag = Me.PartnerList.Columns(0).Value
            tn.ForeColor = System.Drawing.Color.Red
            tn.ImageIndex = 4
            tn.SelectedImageIndex = 4
            Me.TreeView1.SelectedNode.ExpandAll()
            If checkchanges Then changes = True
            Exit Sub
        End If
        Try
            tn = Me.TreeView1.SelectedNode
            Dim i As Integer
            Dim row As Long
            Dim col As C1.Win.C1TrueDBGrid.C1DataColumn
            If Me.C1TrueDBGrid1.SelectedRows.Count > 0 Then
                For Each row In Me.C1TrueDBGrid1.SelectedRows
                    tn = Me.TreeView1.SelectedNode
                    tn = tn.Nodes.Add(Me.C1TrueDBGrid1.Columns(1).CellText(row))
                    If Me.C1TrueDBGrid1.Columns(2).CellValue(row) = False Then
                        tn.ForeColor = System.Drawing.Color.Gray
                    Else
                        tn.ForeColor = System.Drawing.Color.Red
                    End If
                    tn.Tag = Me.C1TrueDBGrid1.Columns(0).CellValue(row)
                    tn.ImageIndex = 4
                    tn.SelectedImageIndex = 4
                Next
            Else
                tn = tn.Nodes.Add(Me.C1TrueDBGrid1.Columns(1).Value)
                tn.Tag = Me.C1TrueDBGrid1.Columns(0).Value
                If Me.C1TrueDBGrid1.Columns(2).Value = False Then
                    tn.ForeColor = System.Drawing.Color.Gray
                Else
                    tn.ForeColor = System.Drawing.Color.Red
                End If
                tn.ImageIndex = 4
                tn.SelectedImageIndex = 4
            End If
            Me.TreeView1.SelectedNode.ExpandAll()
            If checkchanges Then changes = True
        Catch
        End Try
        Exit Sub
    End Sub
#End Region

#Region "Hanlde Treeview_Mousebuttons"
    Private Sub TVDokart_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TVDokart.DoubleClick
        '        If Me.TVDokart.SelectedNode.ImageIndex <> 1 Then
        '           Me.TVDokart.SelectedNode.ImageIndex = 1
        '          Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Red
        '     Else
        '        Me.TVDokart.SelectedNode.ImageIndex = 2
        '       Me.TVDokart.SelectedNode.ForeColor = System.Drawing.Color.Black
        '  End If
    End Sub

    Private Sub TVDokart_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TVDokart.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Try
                TVDokart.SelectedNode = TVDokart.GetNodeAt(selectPoint)
            Catch
            End Try
        Catch
        End Try
    End Sub

    Private Sub Treeview1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Try
                TreeView1.SelectedNode = TreeView1.GetNodeAt(selectPoint)
            Catch
            End Try
            If TreeView1.SelectedNode.Tag = 41 And e.Button = MouseButtons.Left Then
                'Me.Partnerdialog.TopMost = True
                'Me.Partnerdialog.Left = Me.MousePosition.X + 50
                'Me.Partnerdialog.Top = Me.MousePosition.Y - 20
                'Me.Partnerdialog.Show()
                'Me.Partnerdialog.NoClose = True
                Me.TreeView1.SelectedNode.SelectedImageIndex = 5
            End If
        Catch
        End Try
    End Sub

    Private Sub Profile_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Profile.MouseDown
        Try
            Dim mouseEvents As MouseEventArgs
            mouseEvents = e
            selectPoint.Y = mouseEvents.Y
            selectPoint.X = mouseEvents.X
            Try
                Profile.SelectedNode = Profile.GetNodeAt(selectPoint)
            Catch
            End Try
        Catch
        End Try
    End Sub

#End Region

#Region "Datumhandling"


    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.txtdatum1.Text = ""
        changes = True
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.txtdatum3.Text = ""
        changes = True
    End Sub
    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.txtdatum5.Text = ""
        changes = True
    End Sub
    Private Function CutDate(ByVal s As String) As String
        Dim i As Integer
        i = Microsoft.VisualBasic.InStr(s, " ")
        If i > 0 Then CutDate = Microsoft.VisualBasic.Left(s, i - 1) Else CutDate = s
    End Function

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Me.txtdatum1.Text = CutDate(Me.DateTimePicker1.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum1.Text, Date)
            Me.DateTimePicker1.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub
    Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
        Me.txtdatum2.Text = CutDate(Me.DateTimePicker2.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum2.Text, Date)
            Me.DateTimePicker2.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub
    Private Sub DateTimePicker3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker3.ValueChanged
        Me.txtdatum3.Text = CutDate(Me.DateTimePicker3.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum3.Text, Date)
            Me.DateTimePicker3.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub
    Private Sub DateTimePicker4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker4.ValueChanged
        Me.txtdatum4.Text = CutDate(Me.DateTimePicker4.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum4.Text, Date)
            Me.DateTimePicker4.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub
    Private Sub DateTimePicker5_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker5.ValueChanged
        Me.txtdatum5.Text = CutDate(Me.DateTimePicker5.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum5.Text, Date)
            Me.DateTimePicker5.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub
    Private Sub DateTimePicker6_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker6.ValueChanged
        Me.txtdatum6.Text = CutDate(Me.DateTimePicker6.Value)
        Try
            Dim d As Date
            d = CType(Me.txtdatum6.Text, Date)
            Me.DateTimePicker6.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try

        changes = True
    End Sub

    Private Sub DateTimePicker9_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker9.ValueChanged
        Me.HostDatum1.Text = CutDate(Me.DateTimePicker9.Value)
        Try
            Dim d As Date
            d = CType(Me.HostDatum1.Text, Date)
            Me.DateTimePicker9.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True
    End Sub
    Private Sub DateTimePicker8_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker8.ValueChanged
        Me.HostDatum2.Text = CutDate(Me.DateTimePicker8.Value)
        Try
            Dim d As Date
            d = CType(Me.HostDatum2.Text, Date)
            Me.DateTimePicker8.Value = New Date(Year(d), Month(d), Microsoft.VisualBasic.Day(d), 0, 0, 0)
        Catch
        End Try
        changes = True

    End Sub
    Private Sub DateTimePicker7_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker7.ValueChanged
        Me.HostDatum3.Text = CutDate(Me.DateTimePicker7.Value)
        changes = True
    End Sub


#End Region



    Private Sub Button15_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            If Me.lbSortfields.SelectedItems.Count > 0 Then
                If Me.LBSelectHost.Visible = True Then
                    Me.LBSelectHost.Items.Add(Me.lbSortfields.SelectedItem + " | " + Me.LBSort.SelectedItem)
                    Me.lbSortfields.Items.RemoveAt(Me.lbSortfields.SelectedIndex)
                Else
                    Me.lbselect.Items.Add(Me.lbSortfields.SelectedItem + " | " + Me.LBSort.SelectedItem)
                    Me.lbSortfields.Items.RemoveAt(Me.lbSortfields.SelectedIndex)
                End If
                If checkchanges Then changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub lbsortfields_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBSort.DoubleClick, lbSortfields.DoubleClick
        Button15_Click_1(sender, e)
    End Sub

    Private Sub lbselect_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBSelectHost.DoubleClick, lbselect.DoubleClick
        Dim splitter
        Try
            If Me.LBSelectHost.Visible = True Then
                If Me.LBSelectHost.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.LBSelectHost.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.LBSelectHost.Items.RemoveAt(Me.LBSelectHost.SelectedIndex)
                End If
            Else
                If Me.lbselect.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.lbselect.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.lbselect.Items.RemoveAt(Me.lbselect.SelectedIndex)
                End If
                If checkchanges Then changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub Insertitem(ByVal lb As ListBox, ByVal s As String)
        Dim i As Integer
        Dim inserted As Boolean = False
        For i = 0 To lb.Items.Count - 1
            lb.SelectedIndex = i
            If s > lb.SelectedItem And Not inserted Then
                lb.Items.Insert(i, s)
                inserted = True
            End If
        Next
        If Not inserted Then lb.Items.Insert(i, s)
    End Sub

    Private Sub frmProfil_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        'check_changes()
        'If Me.FirstNodeWithData Is Nothing Then
        'If MyMsg.Show_MessageYesNo(104) = MsgBoxResult.No Then e.Cancel = True
        'End If
        'If Me.Profil_Ungueltig Then
        'MyMsg.show_standardmessage(104, MsgBoxStyle.Critical)
        'e.Cancel = True
        'Else
        '    e.Cancel = False
        'End If
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        Try
            Me.C1TrueDBGrid1_DoubleClick(sender, e)
        Catch
        End Try
    End Sub

    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        Try
            If Me.PartnerList.Columns(0).Value > 91000000 Then
                Dim f As New frmInteressent()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.Display = True
                f.ShowDialog()
                f.Dispose()
            Else
                Dim f As New frmPartnerDetails()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.ShowDialog()
                f.Dispose()
            End If
        Catch
        Finally
        End Try
    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        Try
            C1TrueDBGrid1_DoubleClick(sender, e)
        Catch
        End Try
    End Sub

    Private Sub Button1_ContextMenuChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ContextMenuChanged

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim colconv As New ColorConverter()
        Me.colbtn1.BackColor = colconv.ConvertFromString("Control")
        Me.colbtn2.BackColor = Me.colbtn1.BackColor
        Me.colbtn3.BackColor = Me.colbtn1.BackColor
        Me.colbtn4.BackColor = Me.colbtn1.BackColor
        Me.colbtn5.BackColor = Me.colbtn1.BackColor
        Me.colbtn6.BackColor = Me.colbtn1.BackColor
    End Sub

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub Profile_BeforeSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles Profile.BeforeSelect
        '    If Not On_Load Then
        '        Me.savenode = Me.Profile.SelectedNode
        '        If Me.Profil_Ungueltig And Not Me.On_Load Then
        '            MyMsg.show_standardmessage(105, MsgBoxStyle.Critical)
        '            Me.Profile.SelectedNode = Me.savenode
        '            Me.Profil_Ungueltig = False
        '            Exit Sub
        '        End If
        '        Me.savenode = Me.Profile.SelectedNode
        '    End If
    End Sub

    Private Sub MnuListe_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MnuListe.Popup
        Dim i As Integer
        If Me.Profil_Ungueltig = True Then
            For i = 0 To Me.MnuListe.MenuItems.Count - 1
                Me.MnuListe.MenuItems(i).Enabled = False
            Next
        Else
            For i = 0 To Me.MnuListe.MenuItems.Count - 1
                Me.MnuListe.MenuItems(i).Enabled = True
            Next
        End If
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Try
            Dim tn As TreeNode
            Dim tn1 As TreeNode
            tn = TreeView1.SelectedNode
            While tn.GetNodeCount(True) > 0
                tn.Nodes(0).Remove()
            End While
        Catch
        End Try

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim tn As New TreeNode()
        tn = Me.TreeView1.SelectedNode
        tn = tn.Nodes.Add(Me.TextBox4.Text)
        tn.Tag = Me.TextBox4.Text
        tn.ForeColor = System.Drawing.Color.Red
        tn.ImageIndex = 4
        tn.SelectedImageIndex = 4
        Me.TreeView1.SelectedNode.ExpandAll()
    End Sub


    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Try
            Dim tn As New TreeNode()
            Dim tn1 As New TreeNode()
            DivFnkt.Searchnode1(Me.TreeView1, 59, 99)
            If DivFnkt.found = True Then
                tn = DivFnkt.FoundNode
                tn1 = tn.Nodes.Add(Me.TextBox4.Text)
                tn1.Tag = Me.TextBox4.Text
                tn1.ForeColor = System.Drawing.Color.Red
                tn1.ImageIndex = 4
                tn1.SelectedImageIndex = 4
                tn1.Parent.ExpandAll()
                Me.TextBox4.Text = ""
                Me.changes = True

            End If
        Catch
        End Try

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Try
            Dim tn As New TreeNode()
            Dim tn1 As New TreeNode()
            DivFnkt.Searchnode1(Me.TreeView1, 58, 99)
            If DivFnkt.found = True Then
                tn = DivFnkt.FoundNode
                tn1 = tn.Nodes.Add(Me.TextBox5.Text)
                tn1.Tag = Me.TextBox5.Text
                tn1.ForeColor = System.Drawing.Color.Red
                tn1.ImageIndex = 4
                tn1.SelectedImageIndex = 4
                tn1.Parent.ExpandAll()
                Me.TextBox5.Text = ""
                Me.changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Button15_Click_1(sender, e)
    End Sub



    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Dim i As Integer
        Dim s As String
        If Me.LBSelectHost.Visible = True Then
            If Me.LBSelectHost.SelectedItems.Count > 0 Then
                Try
                    i = LBSelectHost.SelectedIndex
                    s = LBSelectHost.SelectedItem
                    If i > 0 Then
                        LBSelectHost.Items.RemoveAt(i)
                        LBSelectHost.Items.Insert(i - 1, s)
                        LBSelectHost.SelectedIndex = i - 1
                    End If
                Catch
                End Try
            End If
        Else
            Try
                If Me.lbselect.SelectedItems.Count > 0 Then
                    i = lbselect.SelectedIndex
                    s = lbselect.SelectedItem
                    If i > 0 Then
                        lbselect.Items.RemoveAt(i)
                        lbselect.Items.Insert(i - 1, s)
                        lbselect.SelectedIndex = i - 1
                    End If
                End If
            Catch
            End Try
        End If
        changes = True
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim i As Integer
        Dim s As String
        If Me.LBSelectHost.Visible = True Then
            Try
                If Me.LBSelectHost.SelectedItems.Count > 0 Then
                    i = LBSelectHost.SelectedIndex
                    s = LBSelectHost.SelectedItem
                    If i < LBSelectHost.Items.Count - 1 Then
                        LBSelectHost.Items.RemoveAt(i)
                        LBSelectHost.Items.Insert(i + 1, s)
                        LBSelectHost.SelectedIndex = i + 1
                    End If
                    changes = True
                End If
            Catch
            End Try
        Else
            Try
                If Me.lbselect.SelectedItems.Count > 0 Then
                    i = lbselect.SelectedIndex
                    s = lbselect.SelectedItem
                    If i < lbselect.Items.Count - 1 Then
                        lbselect.Items.RemoveAt(i)
                        lbselect.Items.Insert(i + 1, s)
                        lbselect.SelectedIndex = i + 1
                    End If
                    changes = True
                End If
            Catch
            End Try
        End If

    End Sub

    Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Dim splitter
        Try
            If Me.LBSelectHost.Visible = True Then
                If Me.LBSelectHost.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.LBSelectHost.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.LBSelectHost.Items.RemoveAt(Me.LBSelectHost.SelectedIndex)
                End If
            Else
                If Me.lbselect.SelectedItems.Count > 0 Then
                    splitter = Microsoft.VisualBasic.Split(Me.lbselect.SelectedItem, " | ")
                    Insertitem(Me.lbSortfields, splitter(0))
                    Me.lbselect.Items.RemoveAt(Me.lbselect.SelectedIndex)
                End If
                If checkchanges Then changes = True
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        Dim s, s1 As String
        Dim splitter
        If Me.LBSelectHost.Visible = True Then
            If Me.LBSelectHost.SelectedItems.Count > 0 Then
                Try
                    s = LBSelectHost.SelectedItem
                    splitter = Microsoft.VisualBasic.Split(s, " | ")
                    Select Case splitter(1)
                        Case "Absteigend"
                            s1 = "Aufsteigend"
                        Case "Aufsteigend"
                            s1 = "Absteigend"
                        Case Else
                            s1 = "Aufsteigend"
                    End Select
                    s = splitter(0) + " | " + s1
                    i = LBSelectHost.SelectedIndex
                    LBSelectHost.SelectedIndex = i
                    LBSelectHost.Items.RemoveAt(i)
                    LBSelectHost.Items.Insert(i, s)
                Catch
                End Try
            End If
        Else
            If Me.lbselect.SelectedItems.Count > 0 Then
                Try
                    s = lbselect.SelectedItem
                    splitter = Microsoft.VisualBasic.Split(s, " | ")
                    Select Case splitter(1)
                        Case "Absteigend"
                            s1 = "Aufsteigend"
                        Case "Aufsteigend"
                            s1 = "Absteigend"
                        Case Else
                            s1 = "Aufsteigend"
                    End Select
                    s = splitter(0) + " | " + s1
                    i = lbselect.SelectedIndex
                    lbselect.SelectedIndex = i
                    lbselect.Items.RemoveAt(i)
                    lbselect.Items.Insert(i, s)
                Catch
                End Try
            End If
        End If
    End Sub



    Private Sub cinklalt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cinklalt.CheckedChanged
        Dim tn As New TreeNode()
        DivFnkt.Searchnode1(Me.TreeView1, 62, 99)
        If DivFnkt.found Then
            tn = DivFnkt.FoundNode
            If Me.cinklalt.Checked Then
                tn.Text = "inkl. gelöschte/aufgehobene"
                DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red
            Else
                tn.Text = "inkl. gelöschte/aufgehobene"
                DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
            End If
        End If
    End Sub

    Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup
        Dim s, s1 As String
        Dim i As Integer
        Dim splitter
        If Me.LBSelectHost.Visible = True Then
            If LBSelectHost.SelectedItems.Count < 1 Then
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = False
                Next
            Else
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = True
                Next
            End If
            Try
                s = LBSelectHost.SelectedItem
                splitter = Microsoft.VisualBasic.Split(s, " | ")
                Select Case splitter(1)
                    Case "Absteigend"
                        s1 = "Aufsteigend"
                    Case "Aufsteigend"
                        s1 = "Absteigend"
                    Case Else
                        s1 = "Aufsteigend"
                End Select
                Me.MenuItem21.Text = "Sortierungsart " + s1
            Catch
            End Try
        Else
            If lbselect.SelectedItems.Count < 1 Then
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = False
                Next
            Else
                For i = 0 To Me.ContextMenu2.MenuItems.Count - 1
                    Me.ContextMenu2.MenuItems(i).Enabled = True
                Next
            End If
            Try
                s = lbselect.SelectedItem
                splitter = Microsoft.VisualBasic.Split(s, " | ")
                Select Case splitter(1)
                    Case "Absteigend"
                        s1 = "Aufsteigend"
                    Case "Aufsteigend"
                        s1 = "Absteigend"
                    Case Else
                        s1 = "Aufsteigend"
                End Select
                Me.MenuItem21.Text = "Sortierungsart " + s1
            Catch
            End Try
        End If
    End Sub

    Private Sub Remove_Selected_Items(ByVal lb As ListBox)
        Dim i As Integer
        Dim b As Integer
        Dim splitter
        For i = 0 To lb.Items.Count - 1
            lb.SelectedIndex = i
            splitter = Microsoft.VisualBasic.Split(lb.SelectedItem)

            Try
                For b = 0 To Me.lbSortfields.Items.Count - 1
                    Me.lbSortfields.SelectedIndex = b
                    If Me.lbSortfields.SelectedItem = splitter(0) Then Me.lbSortfields.Items.RemoveAt(b)
                Next
            Catch
            End Try
        Next
    End Sub

    'Private Sub PartnerSuchResultat() Handles Partnerdialog.partner_selected
    '    Dim tn As New TreeNode()
    '    Dim tn1 As New TreeNode()
    '    If Me.TreeView1.SelectedNode.Tag = 41 Then
    '        tn = Me.TreeView1.SelectedNode
    '        tn1 = tn.Nodes.Add(Trim(Str(Me.Partnerdialog.PartnerNr)) + " - " + Me.Partnerdialog.PartnerKurzbezeichnnung)
    '        tn1.Tag = Trim(Str(Me.Partnerdialog.PartnerNr))
    '        tn1.ForeColor = System.Drawing.Color.Red
    '        tn1.ImageIndex = 4
    '        tn1.SelectedImageIndex = 4
    '        Me.TreeView1.SelectedNode.ExpandAll()
    '        Me.changes = True
    '    End If
    'End Sub

    Private Sub TreeView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TreeView1.Click
    End Sub

    Private Sub txtdatum1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdatum1.TextChanged, txtdatum2.TextChanged, txtdatum3.TextChanged, txtdatum4.TextChanged, txtdatum5.TextChanged, txtdatum6.TextChanged, HostDatum1.TextChanged, HostDatum2.TextChanged
        Dim tb As TextBox
        Dim xt As DateTime
        Dim i As Integer
        tb = sender

        'Select Case tb.Name
        '    Case "txtdatum1"
        '        tb1 = Me.txtdatum1
        '        tp = Me.DateTimePicker1
        '        cb = Me.cbrollend1
        '        tl = Me.datumtext1
        '    Case "txtdatum2"
        '        tb1 = Me.txtdatum2
        '        tp = Me.DateTimePicker2
        '        cb = Me.cbrollend2
        '        tl = Me.datumtext2
        '    Case "txtdatum3"
        '        tb1 = Me.txtdatum3
        '        tp = Me.DateTimePicker3
        '        cb = Me.cbrollend3
        '        tl = Me.datumtext3
        '    Case "txtdatum4"
        '        tb1 = Me.txtdatum4
        '        tp = Me.DateTimePicker4
        '        cb = Me.cbrollend4
        '        tl = Me.datumtext4
        '    Case "txtdatum5"
        '        tb1 = Me.txtdatum5
        '        tp = Me.DateTimePicker5
        '        cb = Me.cbrollend5
        '        tl = Me.datumtext5
        '    Case "txtdatum6"
        '        tb1 = Me.txtdatum6
        '        tp = Me.DateTimePicker6
        '        cb = Me.cbrollend6
        '        tl = Me.datumtext6
        'End Select
        'If tb1.Text = "" Then

        '    tl.Text = "(heute)-99999"
        '    cb.Checked = False
        '    cb.Enabled = False
        'Else
        '    If tp.Value > Now Then
        '        tl.Text = CutDate(Now.ToString)
        '        Exit Sub
        '    End If
        '    cb.Enabled = True
        '    If cb.Checked Then
        '        tl.Text = "(heute)-" + Trim(Str(DateDiff(DateInterval.Day, CType(tb1.Text, DateTime), Now)))
        '    Else
        '        tl.Text = tb1.Text
        '    End If
        'End If

        Select Case tb.Name
            Case "txtdatum1"
                If Me.txtdatum1.Text = "" Then
                    Me.datumtext1.Text = "(heute)-999999"
                    Me.cbrollend1.Checked = False
                    Me.cbrollend1.Enabled = False
                Else
                    If Format(Me.DateTimePicker1.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum1.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend1.Enabled = True
                    If Me.cbrollend1.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum1.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext1.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext1.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext1.Text = Me.txtdatum1.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext1.Text, "heute") > 0 Then Me.cbrollend1.Checked = True
                End If
            Case "txtdatum2"
                If Me.txtdatum2.Text = "" Then
                    Me.datumtext2.Text = "(heute)"
                    Me.cbrollend2.Checked = True
                    Me.cbrollend2.Enabled = False
                    '    Me.txtdatum2.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker2.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum2.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend2.Enabled = True
                    If Me.cbrollend2.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum2.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext2.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext2.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext2.Text = Me.txtdatum2.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext2.Text, "heute") > 0 Then Me.cbrollend2.Checked = True
                End If
            Case "txtdatum3"
                If Me.txtdatum3.Text = "" Then
                    Me.datumtext3.Text = "(heute)-999999"
                    Me.cbrollend3.Checked = False
                    Me.cbrollend3.Enabled = False
                Else
                    If Format(Me.DateTimePicker3.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum3.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend3.Enabled = True
                    If Me.cbrollend3.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum3.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext3.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext3.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext3.Text = Me.txtdatum3.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext3.Text, "heute") > 0 Then Me.cbrollend3.Checked = True
                End If
            Case "txtdatum4"
                If Me.txtdatum4.Text = "" Then
                    Me.datumtext4.Text = "(heute)"
                    Me.cbrollend4.Checked = True
                    Me.cbrollend4.Enabled = False
                    '   Me.txtdatum4.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker4.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum4.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend4.Enabled = True
                    If Me.cbrollend4.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum4.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext4.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext4.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext4.Text = Me.txtdatum4.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext4.Text, "heute") > 0 Then Me.cbrollend4.Checked = True
                End If
            Case "txtdatum5"
                If Me.txtdatum5.Text = "" Then
                    Me.datumtext5.Text = "(heute)-999999"
                    Me.cbrollend5.Checked = False
                    Me.cbrollend5.Enabled = False
                Else
                    If Format(Me.DateTimePicker5.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum5.Text = CutDate(Now.ToString)
                    End If

                    Me.cbrollend5.Enabled = True
                    If Me.cbrollend5.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum5.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext5.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext5.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext5.Text = Me.txtdatum5.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext5.Text, "heute") > 0 Then Me.cbrollend5.Checked = True
                End If
            Case "txtdatum6"
                If Me.txtdatum6.Text = "" Then
                    Me.datumtext6.Text = "(heute)"
                    Me.cbrollend6.Checked = True
                    Me.cbrollend6.Enabled = False
                    '  Me.txtdatum6.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker6.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.txtdatum6.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend6.Enabled = True
                    If Me.cbrollend6.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.txtdatum6.Text, DateTime))
                        If i = 0 Then
                            Me.datumtext6.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.datumtext6.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.datumtext6.Text = Me.txtdatum6.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.datumtext6.Text, "heute") > 0 Then Me.cbrollend6.Checked = True
                End If

            Case "HostDatum1"
                If Me.HostDatum1.Text = "" Then
                    Me.DatumHostText1.Text = "(heute)-999999"
                    Me.cbrollend8.Checked = False
                    Me.cbrollend8.Enabled = False
                Else
                    If Format(Me.DateTimePicker9.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.HostDatum1.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend8.Enabled = True
                    If Me.cbrollend8.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.HostDatum1.Text, DateTime))
                        If i = 0 Then
                            Me.DatumHostText1.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.DatumHostText1.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.DatumHostText1.Text = Me.HostDatum1.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.DatumHostText1.Text, "heute") > 0 Then Me.cbrollend8.Checked = True
                End If
            Case "HostDatum2"
                If Me.HostDatum2.Text = "" Then
                    Me.DatumHostText2.Text = "(heute)"
                    Me.cbrollend9.Checked = True
                    Me.cbrollend9.Enabled = False
                    ' Me.txtdatum6.Text = CutDate(Now.ToString)
                Else
                    If Format(Me.DateTimePicker8.Value, "yyyyMMdd") > Format(Now, "yyyyMMdd") Then
                        Me.HostDatum2.Text = CutDate(Now.ToString)
                    End If
                    Me.cbrollend9.Enabled = True
                    If Me.cbrollend9.Checked Then
                        i = DateDiff(DateInterval.Day, Now, CType(Me.HostDatum2.Text, DateTime))
                        If i = 0 Then
                            Me.DatumHostText2.Text = "(heute)-0"
                        Else
                            If i < 0 Then i = i * -1
                            Me.DatumHostText2.Text = "(heute)-" + Trim(Str(i))
                        End If
                    Else
                        Me.DatumHostText2.Text = Me.HostDatum2.Text
                    End If
                    If Microsoft.VisualBasic.InStr(Me.DatumHostText2.Text, "heute") > 0 Then Me.cbrollend9.Checked = True
                End If

        End Select
    End Sub

    Private Sub cbrollend1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbrollend6.CheckedChanged, cbrollend5.CheckedChanged, cbrollend4.CheckedChanged, cbrollend3.CheckedChanged, cbrollend2.CheckedChanged, cbrollend1.CheckedChanged, cbrollend8.CheckedChanged, cbrollend9.CheckedChanged
        Dim cb As CheckBox
        cb = sender
        Select Case cb.Name
            Case "cbrollend1"
                txtdatum1_TextChanged(Me.txtdatum1, e)
            Case "cbrollend2"
                txtdatum1_TextChanged(Me.txtdatum2, e)
            Case "cbrollend3"
                txtdatum1_TextChanged(Me.txtdatum3, e)
            Case "cbrollend4"
                txtdatum1_TextChanged(Me.txtdatum4, e)
            Case "cbrollend5"
                txtdatum1_TextChanged(Me.txtdatum5, e)
            Case "cbrollend6"
                txtdatum1_TextChanged(Me.txtdatum6, e)
            Case "cbrollend8"
                txtdatum1_TextChanged(Me.HostDatum1, e)
            Case "cbrollend9"
                txtdatum1_TextChanged(Me.HostDatum2, e)
        End Select

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Me.txtdatum2.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Me.txtdatum1.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Me.txtdatum4.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Me.txtdatum5.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Me.txtdatum6.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Me.txtdatum3.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Me.HostDatum1.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Me.HostDatum2.Text = ""
        Me.changes = True
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Try
            Dim tn As New TreeNode()
            Dim tn1 As New TreeNode()
            DivFnkt.Searchnode1(Me.TreeView1, 54, 99)
            If DivFnkt.found = True Then
                tn = DivFnkt.FoundNode
                tn1 = tn.Nodes.Add(Me.TextBox6.Text)
                tn1.Tag = Me.TextBox6.Text
                tn1.ForeColor = System.Drawing.Color.Red
                tn1.ImageIndex = 4
                tn1.SelectedImageIndex = 4
                tn1.Parent.ExpandAll()
                Me.TextBox6.Text = ""
                Me.changes = True

            End If
        Catch
        End Try

    End Sub

    Private Sub TextBox6_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox6.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.Button20_Click(sender, e)
        End If
    End Sub
    Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.Button9_Click(sender, e)
        End If
    End Sub
    Private Sub TextBox5_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox5.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.Button10_Click(sender, e)
        End If
    End Sub
    Private Sub init_profile()
        Dim i As Integer
        For i = 11 To 15
            del_entry(i)
            del_entry(i + 10)
            del_entry(i + 20)
        Next
        del_entry(41)
        del_entry(43)
        del_entry(44)
        del_entry(53)
        del_entry(54)
        del_entry(51)
        del_entry(58)
        del_entry(59)
        Me.LBSelectHost.Items.Clear()
        Me.lbselect.Items.Clear()
        Me.cinklalt.Checked = False
        Me.txtdatum1.Text = ""
        Me.cbrollend1.Checked = False
        Me.txtdatum2.Text = ""
        Me.cbrollend2.Checked = True

        Me.txtdatum3.Text = ""
        Me.cbrollend3.Checked = False
        Me.txtdatum4.Text = ""
        Me.cbrollend4.Checked = True
        Me.txtdatum5.Text = ""
        Me.cbrollend5.Checked = False
        Me.txtdatum6.Text = ""
        Me.cbrollend6.Checked = True

        Me.HostDatum1.Text = ""
        Me.cbrollend8.Checked = False
        Me.HostDatum2.Text = ""
        Me.cbrollend9.Checked = True
        reset_dokart()

        reset_color(60)
        reset_color(61)
        reset_color(62)
        reset_color(45)
        reset_color(55)
        reset_color(42)
        reset_color(52)
        Me.changes = True
        DivFnkt.Searchnode1(Me.TreeView1, 41, 99)
        If DivFnkt.found Then
            Me.TreeView1.SelectedNode = DivFnkt.FoundNode
        End If
        nodeswithdata(1)
        nodeswithdata(2)
        nodeswithdata(3)
        nodeswithdata(70)
        nodeswithdata(90)
        nodeswithdata(72)
        nodeswithdata(92)
    End Sub

    Private Sub del_entry(ByVal node As Integer)
        Dim tn As TreeNode
        DivFnkt.Searchnode1(Me.TreeView1, node, 99)
        If DivFnkt.found Then
            Me.TreeView1.SelectedNode = DivFnkt.FoundNode
            Try
                tn = Me.TreeView1.SelectedNode
                While tn.GetNodeCount(True) > 0
                    tn.Nodes(0).Remove()
                End While
                tn.ForeColor = System.Drawing.Color.Black
            Catch
            End Try

        End If
    End Sub
    Private Sub reset_color(ByVal node As Integer)
        Dim tn As TreeNode
        DivFnkt.Searchnode1(Me.TreeView1, node, 99)
        If DivFnkt.found Then
            Me.TreeView1.SelectedNode = DivFnkt.FoundNode
            Try
                tn = Me.TreeView1.SelectedNode
                tn.ForeColor = System.Drawing.Color.Black
            Catch
            End Try
        End If
    End Sub

    Private Sub reset_dokart()
        Dim tmptreeview As TreeView
        tmptreeview = Me.TVDokart
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While
        tmptreeview = Me.TVHostDok
        DivFnkt.Searchnode2(tmptreeview, 0, 0)
        While DivFnkt.found
            DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black
            DivFnkt.FoundNode.ImageIndex = 0
            DivFnkt.Searchnode2(tmptreeview, 0, 0)
        End While
    End Sub

    Private Function nodeswithdata(ByVal node As Integer) As Boolean
        If node <> 70 And node <> 90 Then
            DivFnkt.Searchnode1(Me.TreeView1, node, 99)
            If DivFnkt.FoundNode.GetNodeCount(True) < 6 Then DivFnkt.FoundNode.Collapse()
        End If
        If node = 70 Then
            DivFnkt.Searchnode1(Me.TreeView1, node, 99)
            If DivFnkt.FoundNode.GetNodeCount(True) < 15 Then DivFnkt.FoundNode.Collapse()
        End If
        If node = 90 Then
            DivFnkt.Searchnode1(Me.TreeView1, node, 99)
            If DivFnkt.FoundNode.GetNodeCount(True) < 4 Then DivFnkt.FoundNode.Collapse()
        End If
        If node = 72 Then
            If expandzv Then
                DivFnkt.Searchnode1(Me.TreeView1, 70, 99)
                If DivFnkt.found = True Then DivFnkt.FoundNode.ExpandAll()
            End If
        End If
        If node = 92 Then
            If expanduvm Then
                DivFnkt.Searchnode1(Me.TreeView1, 90, 99)
                If DivFnkt.found = True Then DivFnkt.FoundNode.ExpandAll()
            End If
        End If
    End Function

    Private Sub set_tips()
    End Sub

    Private Sub DateTimePicker1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.Enter, _
    DateTimePicker2.Enter, DateTimePicker3.Enter, DateTimePicker4.Enter, DateTimePicker5.Enter, DateTimePicker6.Enter, DateTimePicker8.Enter, DateTimePicker9.Enter
        Dim dp As DateTimePicker
        Dim D As Date
        dp = sender
        Select Case UCase(dp.Name)
            Case "DATETIMEPICKER1"
                If Me.txtdatum1.Text <> "" Then
                    D = CType(Me.txtdatum1.Text, Date)
                    Me.DateTimePicker1.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker1.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER2"
                If Me.txtdatum2.Text <> "" Then
                    D = CType(Me.txtdatum2.Text, Date)
                    Me.DateTimePicker2.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker2.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER3"
                If Me.txtdatum3.Text <> "" Then
                    D = CType(Me.txtdatum3.Text, Date)
                    Me.DateTimePicker3.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker3.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER4"
                If Me.txtdatum4.Text <> "" Then
                    D = CType(Me.txtdatum4.Text, Date)
                    Me.DateTimePicker4.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker4.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER5"
                If Me.txtdatum5.Text <> "" Then
                    D = CType(Me.txtdatum5.Text, Date)
                    Me.DateTimePicker5.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker5.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER6"
                If Me.txtdatum6.Text <> "" Then
                    D = CType(Me.txtdatum6.Text, Date)
                    Me.DateTimePicker6.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker6.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER8"
                If Me.HostDatum2.Text <> "" Then
                    D = CType(Me.HostDatum2.Text, Date)
                    Me.DateTimePicker8.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker8.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If
            Case "DATETIMEPICKER9"
                If Me.HostDatum1.Text <> "" Then
                    D = CType(Me.HostDatum1.Text, Date)
                    Me.DateTimePicker9.Value = New Date(Year(D), Month(D), Microsoft.VisualBasic.Day(D), 0, 0, 0)
                Else
                    Me.DateTimePicker9.Value = New Date(Year(Now), Month(Now), Microsoft.VisualBasic.Day(Now), 0, 0, 0)
                End If

            Case Else
        End Select

    End Sub

    Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click

    End Sub

    Private Sub GroupBox10_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox10.Enter

    End Sub
End Class