Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

SDL/SDL.vbproj

@@ -116,9 +116,6 @@
     <Reference Include="com.esendex.sdk, Version=3.8.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL">
       <HintPath>..\..\..\AVISO\Aviso\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
     </Reference>
-    <Reference Include="DAKOSY_Worker">
-      <HintPath>..\..\..\ADMIN\ADMIN\DAKOSY_Worker\bin\Debug\DAKOSY_Worker.dll</HintPath>
-    </Reference>
     <Reference Include="DiffieHellman, Version=0.0.0.0, Culture=neutral">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\dll\SharpSSH\DiffieHellman.dll</HintPath>
@@ -5052,6 +5049,10 @@
     <WCFMetadata Include="Service References\" />
   </ItemGroup>
   <ItemGroup>
+    <ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
+      <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
+      <Name>DAKOSY_Worker_lib</Name>
+    </ProjectReference>
     <ProjectReference Include="..\..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj">
       <Project>{2e4dbc09-e57b-4ac5-8554-6117d71f993b}</Project>
       <Name>MDM_Worker_lib</Name>

SDL/USTV/usrCntlUSTV.Designer.vb

@@ -28,6 +28,8 @@ Partial Class usrCntlUSTV
         Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cbxTopMax = New System.Windows.Forms.CheckBox()
+        Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cboJahrBis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.lblKunde = New System.Windows.Forms.Label()
@@ -43,6 +45,7 @@ Partial Class usrCntlUSTV
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button8 = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cbxEingereicht = New System.Windows.Forms.CheckBox()
         CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -90,6 +93,9 @@ Partial Class usrCntlUSTV
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.cbxEingereicht)
+        Me.Panel1.Controls.Add(Me.cbxTopMax)
+        Me.Panel1.Controls.Add(Me.txtMaxSrch)
         Me.Panel1.Controls.Add(Me.cboJahrBis)
         Me.Panel1.Controls.Add(Me.Label2)
         Me.Panel1.Controls.Add(Me.lblKunde)
@@ -103,6 +109,44 @@ Partial Class usrCntlUSTV
         Me.Panel1.Size = New System.Drawing.Size(1072, 84)
         Me.Panel1.TabIndex = 0
         '
+        'cbxTopMax
+        '
+        Me.cbxTopMax.AutoSize = True
+        Me.cbxTopMax.Checked = True
+        Me.cbxTopMax.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxTopMax.Location = New System.Drawing.Point(668, 10)
+        Me.cbxTopMax.Name = "cbxTopMax"
+        Me.cbxTopMax.Size = New System.Drawing.Size(46, 17)
+        Me.cbxTopMax.TabIndex = 45
+        Me.cbxTopMax.Text = "Max"
+        Me.cbxTopMax.UseVisualStyleBackColor = True
+        '
+        'txtMaxSrch
+        '
+        Me.txtMaxSrch._DateTimeOnly = False
+        Me.txtMaxSrch._numbersOnly = True
+        Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
+        Me.txtMaxSrch._Prozent = False
+        Me.txtMaxSrch._ShortDateNew = False
+        Me.txtMaxSrch._ShortDateOnly = False
+        Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
+        Me.txtMaxSrch._value = ""
+        Me.txtMaxSrch._Waehrung = False
+        Me.txtMaxSrch._WaehrungZeichen = True
+        Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
+        Me.txtMaxSrch.Location = New System.Drawing.Point(720, 9)
+        Me.txtMaxSrch.MaxLineLength = -1
+        Me.txtMaxSrch.MaxLines_Warning = ""
+        Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
+        Me.txtMaxSrch.Name = "txtMaxSrch"
+        Me.txtMaxSrch.Size = New System.Drawing.Size(41, 20)
+        Me.txtMaxSrch.TabIndex = 44
+        Me.txtMaxSrch.Text = "200"
+        Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'cboJahrBis
         '
         Me.cboJahrBis._allowedValuesFreiText = Nothing
@@ -303,6 +347,19 @@ Partial Class usrCntlUSTV
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
+        'cbxEingereicht
+        '
+        Me.cbxEingereicht.AutoSize = True
+        Me.cbxEingereicht.Checked = True
+        Me.cbxEingereicht.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxEingereicht.Location = New System.Drawing.Point(367, 35)
+        Me.cbxEingereicht.Name = "cbxEingereicht"
+        Me.cbxEingereicht.Size = New System.Drawing.Size(118, 17)
+        Me.cbxEingereicht.TabIndex = 46
+        Me.cbxEingereicht.Text = "Anträge eingereicht"
+        Me.cbxEingereicht.ThreeState = True
+        Me.cbxEingereicht.UseVisualStyleBackColor = True
+        '
         'usrCntlUSTV
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -340,4 +397,7 @@ Partial Class usrCntlUSTV
     Friend WithEvents btnPLOSEAlle As Button
     Friend WithEvents btnMail As Button
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents cbxTopMax As CheckBox
+    Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxEingereicht As CheckBox
 End Class

SDL/USTV/usrCntlUSTV.vb

@@ -28,8 +28,16 @@ Public Class usrCntlUSTV
         With dgvUSTV
             .ClearSelection()
 
+            Dim topMax = ""
+            If cbxTopMax.Checked Then
+                If IsNumeric(txtMaxSrch.Text) Then
+                    topMax = " TOP (" & txtMaxSrch.Text.Trim & ")"
+                Else
+                    topMax = " TOP (200)"
+                End If
+            End If
 
-            .SET_SQL("SELECT TOP (200) [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter]
+            .SET_SQL("SELECT " & topMax & " [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter]
                   FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
                   where 1=1 " & getWhere() & "
                   order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL")
@@ -116,6 +124,14 @@ Public Class usrCntlUSTV
             End If
         End If
 
+        Select Case cbxEingereicht.CheckState
+            Case CheckState.Checked
+                whereStr &= " AND UStVAn_AntragEingereichtAm is not null "
+            Case CheckState.Unchecked
+                whereStr &= " AND UStVAn_AntragEingereichtAm is null "
+            Case CheckState.Indeterminate
+        End Select
+
         If KdSearchBox1.KdNr > 0 Then whereStr &= " AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " "
         Return whereStr
     End Function
@@ -352,4 +368,15 @@ Public Class usrCntlUSTV
 
     End Sub
 
+    Private Sub cbxTopMax_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTopMax.CheckedChanged
+        init()
+    End Sub
+
+    Private Sub txtMaxSrch_TextChanged(sender As Object, e As EventArgs) Handles txtMaxSrch.Leave
+        init()
+    End Sub
+
+    Private Sub cbxEingereicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEingereicht.CheckStateChanged
+        init()
+    End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb

@@ -24,10 +24,6 @@ Partial Class frmMessenger
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -36,14 +32,20 @@ Partial Class frmMessenger
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
         Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
+        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
         Me.Panel6 = New System.Windows.Forms.Panel()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
         Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
+        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
         Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Button8 = New System.Windows.Forms.Button()
@@ -53,11 +55,17 @@ Partial Class frmMessenger
         Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
+        Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
+        Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.lbl = New System.Windows.Forms.Label()
         Me.btnNeu = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
+        Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.btnTeilnehmer = New System.Windows.Forms.Button()
         Me.Panel4 = New System.Windows.Forms.Panel()
@@ -69,6 +77,10 @@ Partial Class frmMessenger
         Me.pnlTeilnehmer = New System.Windows.Forms.Panel()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
+        Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.Panel8 = New System.Windows.Forms.Panel()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Panel9 = New System.Windows.Forms.Panel()
@@ -80,28 +92,15 @@ Partial Class frmMessenger
         Me.btnSendAtt = New System.Windows.Forms.Button()
         Me.btnSenden = New System.Windows.Forms.Button()
         Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
-        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
+        Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
-        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
+        Me.Timer_REFRESH = New System.Windows.Forms.Timer()
-        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
         Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
-        Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
-        Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn()
-        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
-        Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
-        Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnStatus = New System.Windows.Forms.DataGridViewTextBoxColumn()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
@@ -110,7 +109,9 @@ Partial Class frmMessenger
         Me.SplitContainer2.Panel1.SuspendLayout()
         Me.SplitContainer2.Panel2.SuspendLayout()
         Me.SplitContainer2.SuspendLayout()
+        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel6.SuspendLayout()
+        CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel5.SuspendLayout()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
@@ -121,6 +122,7 @@ Partial Class frmMessenger
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
+        Me.MyFlowLayoutPanel1.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.pnl.SuspendLayout()
         CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -133,9 +135,6 @@ Partial Class frmMessenger
         Me.Panel9.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cntxt.SuspendLayout()
-        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.MyFlowLayoutPanel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'SplitContainer
@@ -182,6 +181,53 @@ Partial Class frmMessenger
         Me.SplitContainer2.SplitterWidth = 3
         Me.SplitContainer2.TabIndex = 8
         '
+        'dgvChats
+        '
+        Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvChats.AllowUserToAddRows = False
+        Me.dgvChats.AllowUserToDeleteRows = False
+        Me.dgvChats.AllowUserToResizeColumns = False
+        Me.dgvChats.AllowUserToResizeRows = False
+        Me.dgvChats.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvChats.ColumnHeadersVisible = False
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvChats.Location = New System.Drawing.Point(0, 0)
+        Me.dgvChats.Name = "dgvChats"
+        Me.dgvChats.ReadOnly = True
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
+        Me.dgvChats.RowHeadersVisible = False
+        Me.dgvChats.RowHeadersWidth = 62
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvChats.RowTemplate.Height = 30
+        Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvChats.Size = New System.Drawing.Size(275, 739)
+        Me.dgvChats.TabIndex = 0
+        '
         'Panel6
         '
         Me.Panel6.Controls.Add(Me.Label3)
@@ -226,6 +272,53 @@ Partial Class frmMessenger
         Me.cbxInaktiveChats.Text = "inaktive Chats"
         Me.cbxInaktiveChats.UseVisualStyleBackColor = True
         '
+        'DGVSonstige
+        '
+        Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1
+        Me.DGVSonstige.AllowUserToAddRows = False
+        Me.DGVSonstige.AllowUserToDeleteRows = False
+        Me.DGVSonstige.AllowUserToResizeColumns = False
+        Me.DGVSonstige.AllowUserToResizeRows = False
+        Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
+        Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DGVSonstige.ColumnHeadersVisible = False
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
+        Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
+        Me.DGVSonstige.Name = "DGVSonstige"
+        Me.DGVSonstige.ReadOnly = True
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
+        Me.DGVSonstige.RowHeadersVisible = False
+        Me.DGVSonstige.RowHeadersWidth = 62
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
+        Me.DGVSonstige.RowTemplate.Height = 30
+        Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
+        Me.DGVSonstige.TabIndex = 1
+        '
         'Panel5
         '
         Me.Panel5.BackColor = System.Drawing.Color.White
@@ -240,6 +333,30 @@ Partial Class frmMessenger
         Me.Panel5.Size = New System.Drawing.Size(150, 63)
         Me.Panel5.TabIndex = 2
         '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = False
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = ""
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = True
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(20, 40)
+        Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2)
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.Size = New System.Drawing.Size(250, 20)
+        Me.MyTextBox2.TabIndex = 4
+        '
         'PictureBox2
         '
         Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search
@@ -345,6 +462,60 @@ Partial Class frmMessenger
         Me.FlowLayoutPanel1.Size = New System.Drawing.Size(275, 30)
         Me.FlowLayoutPanel1.TabIndex = 10
         '
+        'UsrCntlChat_Art_Btn_MACHAT
+        '
+        Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True
+        Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein"
+        Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0)
+        Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT"
+        Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29)
+        Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8
+        '
+        'UsrCntlChat_Art_Btn_LKWCHAT
+        '
+        Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False
+        Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW"
+        Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0)
+        Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0)
+        Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT"
+        Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29)
+        Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9
+        '
+        'UsrCntlChat_Art_Btn_SNDCHAT
+        '
+        Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False
+        Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung"
+        Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0)
+        Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0)
+        Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT"
+        Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29)
+        Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = False
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
+        Me.MyTextBox1._value = ""
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox1.Location = New System.Drawing.Point(20, 40)
+        Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2)
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(250, 20)
+        Me.MyTextBox1.TabIndex = 4
+        '
         'PictureBox1
         '
         Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search
@@ -410,6 +581,28 @@ Partial Class frmMessenger
         Me.SplitContainer1.SplitterDistance = 600
         Me.SplitContainer1.TabIndex = 0
         '
+        'MyFlowLayoutPanel1
+        '
+        Me.MyFlowLayoutPanel1.AutoScroll = True
+        Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1)
+        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44)
+        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556)
+        Me.MyFlowLayoutPanel1.TabIndex = 0
+        '
+        'UsrCntlMessenger_ChatElement1
+        '
+        Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing
+        Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5)
+        Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1"
+        Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48)
+        Me.UsrCntlMessenger_ChatElement1.TabIndex = 4
+        Me.UsrCntlMessenger_ChatElement1.Visible = False
+        '
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.Color.White
@@ -591,6 +784,38 @@ Partial Class frmMessenger
         Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146)
         Me.dgvChatMembers.TabIndex = 8
         '
+        'clmnMaId
+        '
+        Me.clmnMaId.HeaderText = "Column1"
+        Me.clmnMaId.MinimumWidth = 8
+        Me.clmnMaId.Name = "clmnMaId"
+        Me.clmnMaId.ReadOnly = True
+        Me.clmnMaId.Visible = False
+        Me.clmnMaId.Width = 150
+        '
+        'clmnName
+        '
+        Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnName.HeaderText = "Name"
+        Me.clmnName.MinimumWidth = 8
+        Me.clmnName.Name = "clmnName"
+        Me.clmnName.ReadOnly = True
+        '
+        'clmnFirma
+        '
+        Me.clmnFirma.HeaderText = "Firma"
+        Me.clmnFirma.MinimumWidth = 8
+        Me.clmnFirma.Name = "clmnFirma"
+        Me.clmnFirma.ReadOnly = True
+        Me.clmnFirma.Width = 85
+        '
+        'clmnStatus
+        '
+        Me.clmnStatus.HeaderText = ""
+        Me.clmnStatus.Name = "clmnStatus"
+        Me.clmnStatus.ReadOnly = True
+        Me.clmnStatus.Width = 20
+        '
         'Panel8
         '
         Me.Panel8.BackColor = System.Drawing.SystemColors.Control
@@ -781,232 +1006,6 @@ Partial Class frmMessenger
         Me.DataGridViewTextBoxColumn4.ReadOnly = True
         Me.DataGridViewTextBoxColumn4.Width = 20
         '
-        'dgvChats
-        '
-        Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvChats.AllowUserToAddRows = False
-        Me.dgvChats.AllowUserToDeleteRows = False
-        Me.dgvChats.AllowUserToResizeColumns = False
-        Me.dgvChats.AllowUserToResizeRows = False
-        Me.dgvChats.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
-        Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvChats.ColumnHeadersVisible = False
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2
-        Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvChats.Location = New System.Drawing.Point(0, 0)
-        Me.dgvChats.Name = "dgvChats"
-        Me.dgvChats.ReadOnly = True
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
-        Me.dgvChats.RowHeadersVisible = False
-        Me.dgvChats.RowHeadersWidth = 62
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4
-        Me.dgvChats.RowTemplate.Height = 30
-        Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvChats.Size = New System.Drawing.Size(275, 739)
-        Me.dgvChats.TabIndex = 0
-        '
-        'DGVSonstige
-        '
-        Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1
-        Me.DGVSonstige.AllowUserToAddRows = False
-        Me.DGVSonstige.AllowUserToDeleteRows = False
-        Me.DGVSonstige.AllowUserToResizeColumns = False
-        Me.DGVSonstige.AllowUserToResizeRows = False
-        Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
-        Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DGVSonstige.ColumnHeadersVisible = False
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6
-        Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.DGVSonstige.Location = New System.Drawing.Point(0, 63)
-        Me.DGVSonstige.Name = "DGVSonstige"
-        Me.DGVSonstige.ReadOnly = True
-        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7
-        Me.DGVSonstige.RowHeadersVisible = False
-        Me.DGVSonstige.RowHeadersWidth = 62
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8
-        Me.DGVSonstige.RowTemplate.Height = 30
-        Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.DGVSonstige.Size = New System.Drawing.Size(150, 0)
-        Me.DGVSonstige.TabIndex = 1
-        '
-        'MyTextBox2
-        '
-        Me.MyTextBox2._DateTimeOnly = False
-        Me.MyTextBox2._numbersOnly = False
-        Me.MyTextBox2._numbersOnlyKommastellen = ""
-        Me.MyTextBox2._numbersOnlyTrennzeichen = True
-        Me.MyTextBox2._Prozent = False
-        Me.MyTextBox2._ShortDateNew = False
-        Me.MyTextBox2._ShortDateOnly = False
-        Me.MyTextBox2._TimeOnly = False
-        Me.MyTextBox2._TimeOnly_Seconds = False
-        Me.MyTextBox2._value = ""
-        Me.MyTextBox2._Waehrung = False
-        Me.MyTextBox2._WaehrungZeichen = True
-        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox2.Location = New System.Drawing.Point(20, 40)
-        Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2)
-        Me.MyTextBox2.MaxLineLength = -1
-        Me.MyTextBox2.MaxLines_Warning = ""
-        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox2.Name = "MyTextBox2"
-        Me.MyTextBox2.Size = New System.Drawing.Size(250, 20)
-        Me.MyTextBox2.TabIndex = 4
-        '
-        'UsrCntlChat_Art_Btn_MACHAT
-        '
-        Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True
-        Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein"
-        Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0)
-        Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT"
-        Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29)
-        Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8
-        '
-        'UsrCntlChat_Art_Btn_LKWCHAT
-        '
-        Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False
-        Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW"
-        Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0)
-        Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0)
-        Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT"
-        Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29)
-        Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9
-        '
-        'UsrCntlChat_Art_Btn_SNDCHAT
-        '
-        Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False
-        Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung"
-        Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0)
-        Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0)
-        Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT"
-        Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29)
-        Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10
-        '
-        'MyTextBox1
-        '
-        Me.MyTextBox1._DateTimeOnly = False
-        Me.MyTextBox1._numbersOnly = False
-        Me.MyTextBox1._numbersOnlyKommastellen = ""
-        Me.MyTextBox1._numbersOnlyTrennzeichen = True
-        Me.MyTextBox1._Prozent = False
-        Me.MyTextBox1._ShortDateNew = False
-        Me.MyTextBox1._ShortDateOnly = False
-        Me.MyTextBox1._TimeOnly = False
-        Me.MyTextBox1._TimeOnly_Seconds = False
-        Me.MyTextBox1._value = ""
-        Me.MyTextBox1._Waehrung = False
-        Me.MyTextBox1._WaehrungZeichen = True
-        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox1.Location = New System.Drawing.Point(20, 40)
-        Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2)
-        Me.MyTextBox1.MaxLineLength = -1
-        Me.MyTextBox1.MaxLines_Warning = ""
-        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox1.Name = "MyTextBox1"
-        Me.MyTextBox1.Size = New System.Drawing.Size(250, 20)
-        Me.MyTextBox1.TabIndex = 4
-        '
-        'MyFlowLayoutPanel1
-        '
-        Me.MyFlowLayoutPanel1.AutoScroll = True
-        Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1)
-        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44)
-        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
-        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556)
-        Me.MyFlowLayoutPanel1.TabIndex = 0
-        '
-        'UsrCntlMessenger_ChatElement1
-        '
-        Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing
-        Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5)
-        Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1"
-        Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48)
-        Me.UsrCntlMessenger_ChatElement1.TabIndex = 4
-        Me.UsrCntlMessenger_ChatElement1.Visible = False
-        '
-        'clmnMaId
-        '
-        Me.clmnMaId.HeaderText = "Column1"
-        Me.clmnMaId.MinimumWidth = 8
-        Me.clmnMaId.Name = "clmnMaId"
-        Me.clmnMaId.ReadOnly = True
-        Me.clmnMaId.Visible = False
-        Me.clmnMaId.Width = 150
-        '
-        'clmnName
-        '
-        Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.clmnName.HeaderText = "Name"
-        Me.clmnName.MinimumWidth = 8
-        Me.clmnName.Name = "clmnName"
-        Me.clmnName.ReadOnly = True
-        '
-        'clmnFirma
-        '
-        Me.clmnFirma.HeaderText = "Firma"
-        Me.clmnFirma.MinimumWidth = 8
-        Me.clmnFirma.Name = "clmnFirma"
-        Me.clmnFirma.ReadOnly = True
-        Me.clmnFirma.Width = 85
-        '
-        'clmnStatus
-        '
-        Me.clmnStatus.HeaderText = ""
-        Me.clmnStatus.Name = "clmnStatus"
-        Me.clmnStatus.ReadOnly = True
-        Me.clmnStatus.Width = 20
-        '
         'frmMessenger
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1026,8 +1025,10 @@ Partial Class frmMessenger
         Me.SplitContainer2.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer2.ResumeLayout(False)
+        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel6.ResumeLayout(False)
         Me.Panel6.PerformLayout()
+        CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel5.ResumeLayout(False)
         Me.Panel5.PerformLayout()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1041,6 +1042,7 @@ Partial Class frmMessenger
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
+        Me.MyFlowLayoutPanel1.ResumeLayout(False)
         Me.Panel3.ResumeLayout(False)
         Me.Panel3.PerformLayout()
         Me.pnl.ResumeLayout(False)
@@ -1055,9 +1057,6 @@ Partial Class frmMessenger
         Me.Panel9.ResumeLayout(False)
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
         Me.cntxt.ResumeLayout(False)
-        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.MyFlowLayoutPanel1.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -1250,6 +1250,9 @@
     <PackageReference Include="JsonSubTypes">
       <Version>2.0.1</Version>
     </PackageReference>
+    <PackageReference Include="Microsoft.Bcl.AsyncInterfaces">
+      <Version>1.0.0</Version>
+    </PackageReference>
     <PackageReference Include="Newtonsoft.Json">
       <Version>13.0.3</Version>
     </PackageReference>