neu

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -55,6 +55,7 @@ Public Class cMitarbeiter
     Property mit_teamId As Object = Nothing
     Property mit_ChatBenutzer As Boolean = True
     Property mit_FirmaHaupt As Object = Nothing
+    Property mit_ChatEasteregg As Boolean = False
 
     Sub New()
 
@@ -137,6 +138,9 @@ Public Class cMitarbeiter
 
 
                             Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer")
+                            Me.mit_ChatEasteregg = dr.Item("mit_ChatEasteregg")
+
+
                             If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt")
 
 
@@ -155,4 +159,18 @@ Public Class cMitarbeiter
         Return False
     End Function
 
+    Public Shared Sub UPDATE_EASTEREGG(egg As Boolean, Optional mit_id As Integer = -1)
+        Try
+            If cAllgemein.MITARBEITER IsNot Nothing Then
+                If mit_id <= 0 Then
+                    mit_id = cAllgemein.MITARBEITER.mit_id
+                End If
+            End If
+        Dim sql As New SQL
+            If mit_id > 0 Then sql.doSQL("UPDATE tblMitarbeiter SET mit_ChatEasteregg='" & If(egg, 1, 0) & "' WHERE mit_id=" & mit_id, "ADMIN")
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb

@@ -31,6 +31,7 @@ Partial Class frmMessenger
         Dim DataGridViewCellStyle4 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.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.btnTEST = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
@@ -39,7 +40,14 @@ Partial Class frmMessenger
         Me.Button2 = 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.components)
+        Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
+        Me.UsrCntlMessenger_ChatAnhang1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatAnhang()
+        Me.UsrCntlMessenger_ChatElement2 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
+        Me.UsrCntlMessenger_ChatElement3 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.btn = New System.Windows.Forms.Button()
@@ -48,26 +56,21 @@ Partial Class frmMessenger
         Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
         Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
-        Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
-        Me.UsrCntlMessenger_ChatAnhang1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatAnhang()
-        Me.UsrCntlMessenger_ChatElement2 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
-        Me.UsrCntlMessenger_ChatElement3 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.Panel2.SuspendLayout()
         Me.SplitContainer.SuspendLayout()
+        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel2.SuspendLayout()
         Me.Panel1.SuspendLayout()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
-        Me.pnl.SuspendLayout()
-        Me.cntxt.SuspendLayout()
-        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.MyFlowLayoutPanel1.SuspendLayout()
+        Me.pnl.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.cntxt.SuspendLayout()
         Me.SuspendLayout()
         '
         'SplitContainer
@@ -86,10 +89,56 @@ Partial Class frmMessenger
         'SplitContainer.Panel2
         '
         Me.SplitContainer.Panel2.Controls.Add(Me.SplitContainer1)
-        Me.SplitContainer.Size = New System.Drawing.Size(817, 596)
+        Me.SplitContainer.Size = New System.Drawing.Size(817, 654)
         Me.SplitContainer.SplitterDistance = 272
         Me.SplitContainer.TabIndex = 0
         '
+        '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, 42)
+        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
+        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(272, 582)
+        Me.dgvChats.TabIndex = 0
+        '
         'btnTEST
         '
         Me.btnTEST.BackColor = System.Drawing.Color.Red
@@ -107,7 +156,7 @@ Partial Class frmMessenger
         '
         Me.Panel2.Controls.Add(Me.cbxInaktiveChats)
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel2.Location = New System.Drawing.Point(0, 566)
+        Me.Panel2.Location = New System.Drawing.Point(0, 624)
         Me.Panel2.Name = "Panel2"
         Me.Panel2.Size = New System.Drawing.Size(272, 30)
         Me.Panel2.TabIndex = 6
@@ -182,135 +231,10 @@ Partial Class frmMessenger
         'SplitContainer1.Panel2
         '
         Me.SplitContainer1.Panel2.Controls.Add(Me.pnl)
-        Me.SplitContainer1.Size = New System.Drawing.Size(541, 596)
+        Me.SplitContainer1.Size = New System.Drawing.Size(541, 654)
-        Me.SplitContainer1.SplitterDistance = 463
+        Me.SplitContainer1.SplitterDistance = 439
         Me.SplitContainer1.TabIndex = 0
         '
-        'pnl
-        '
-        Me.pnl.BackColor = System.Drawing.Color.White
-        Me.pnl.Controls.Add(Me.Button4)
-        Me.pnl.Controls.Add(Me.Button3)
-        Me.pnl.Controls.Add(Me.btn)
-        Me.pnl.Controls.Add(Me.rtbChatMessage)
-        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pnl.Location = New System.Drawing.Point(0, 0)
-        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(541, 129)
-        Me.pnl.TabIndex = 0
-        '
-        'Button4
-        '
-        Me.Button4.BackColor = System.Drawing.Color.MediumSeaGreen
-        Me.Button4.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.people
-        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.ForeColor = System.Drawing.Color.White
-        Me.Button4.Location = New System.Drawing.Point(489, 93)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(49, 33)
-        Me.Button4.TabIndex = 5
-        Me.Button4.UseVisualStyleBackColor = False
-        '
-        'Button3
-        '
-        Me.Button3.BackColor = System.Drawing.Color.SteelBlue
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.ForeColor = System.Drawing.Color.White
-        Me.Button3.Location = New System.Drawing.Point(461, 47)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(76, 40)
-        Me.Button3.TabIndex = 2
-        Me.Button3.Text = "+ Anhang"
-        Me.Button3.UseVisualStyleBackColor = False
-        '
-        'btn
-        '
-        Me.btn.BackColor = System.Drawing.Color.SteelBlue
-        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn.ForeColor = System.Drawing.Color.White
-        Me.btn.Location = New System.Drawing.Point(461, 4)
-        Me.btn.Name = "btn"
-        Me.btn.Size = New System.Drawing.Size(76, 40)
-        Me.btn.TabIndex = 1
-        Me.btn.Text = "Senden"
-        Me.btn.UseVisualStyleBackColor = False
-        '
-        'rtbChatMessage
-        '
-        Me.rtbChatMessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.rtbChatMessage.Location = New System.Drawing.Point(3, 3)
-        Me.rtbChatMessage.Name = "rtbChatMessage"
-        Me.rtbChatMessage.Size = New System.Drawing.Size(452, 123)
-        Me.rtbChatMessage.TabIndex = 0
-        Me.rtbChatMessage.Text = ""
-        '
-        'TimerNEW_MESSAGE
-        '
-        '
-        'Timer_REFRESH
-        '
-        Me.Timer_REFRESH.Enabled = True
-        Me.Timer_REFRESH.Interval = 5000
-        '
-        'cntxt
-        '
-        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChatDeaktivierenToolStripMenuItem})
-        Me.cntxt.Name = "cntxt"
-        Me.cntxt.Size = New System.Drawing.Size(167, 26)
-        '
-        'ChatDeaktivierenToolStripMenuItem
-        '
-        Me.ChatDeaktivierenToolStripMenuItem.Name = "ChatDeaktivierenToolStripMenuItem"
-        Me.ChatDeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
-        Me.ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren"
-        '
-        '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, 42)
-        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
-        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(272, 524)
-        Me.dgvChats.TabIndex = 0
-        '
         'MyFlowLayoutPanel1
         '
         Me.MyFlowLayoutPanel1.AutoScroll = True
@@ -322,7 +246,7 @@ Partial Class frmMessenger
         Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
         Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
-        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(541, 463)
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(541, 439)
         Me.MyFlowLayoutPanel1.TabIndex = 0
         '
         'UsrCntlMessenger_ChatElement1
@@ -363,11 +287,110 @@ Partial Class frmMessenger
         Me.UsrCntlMessenger_ChatElement3.Size = New System.Drawing.Size(378, 48)
         Me.UsrCntlMessenger_ChatElement3.TabIndex = 6
         '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.Controls.Add(Me.pic)
+        Me.pnl.Controls.Add(Me.FlowLayoutPanel)
+        Me.pnl.Controls.Add(Me.Button4)
+        Me.pnl.Controls.Add(Me.Button3)
+        Me.pnl.Controls.Add(Me.btn)
+        Me.pnl.Controls.Add(Me.rtbChatMessage)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(541, 211)
+        Me.pnl.TabIndex = 0
+        '
+        'pic
+        '
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Location = New System.Drawing.Point(489, 142)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(49, 26)
+        Me.pic.TabIndex = 7
+        Me.pic.TabStop = False
+        Me.pic.WaitOnLoad = True
+        '
+        'FlowLayoutPanel
+        '
+        Me.FlowLayoutPanel.AutoScroll = True
+        Me.FlowLayoutPanel.Location = New System.Drawing.Point(4, 121)
+        Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
+        Me.FlowLayoutPanel.Size = New System.Drawing.Size(451, 87)
+        Me.FlowLayoutPanel.TabIndex = 6
+        '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.MediumSeaGreen
+        Me.Button4.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.people
+        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.White
+        Me.Button4.Location = New System.Drawing.Point(489, 171)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(49, 33)
+        Me.Button4.TabIndex = 5
+        Me.Button4.UseVisualStyleBackColor = False
+        '
+        'Button3
+        '
+        Me.Button3.BackColor = System.Drawing.Color.SteelBlue
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.White
+        Me.Button3.Location = New System.Drawing.Point(461, 47)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(76, 40)
+        Me.Button3.TabIndex = 2
+        Me.Button3.Text = "+ Anhang"
+        Me.Button3.UseVisualStyleBackColor = False
+        '
+        'btn
+        '
+        Me.btn.BackColor = System.Drawing.Color.SteelBlue
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(461, 4)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(76, 40)
+        Me.btn.TabIndex = 1
+        Me.btn.Text = "Senden"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'rtbChatMessage
+        '
+        Me.rtbChatMessage.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.rtbChatMessage.Location = New System.Drawing.Point(3, 3)
+        Me.rtbChatMessage.Name = "rtbChatMessage"
+        Me.rtbChatMessage.Size = New System.Drawing.Size(452, 112)
+        Me.rtbChatMessage.TabIndex = 0
+        Me.rtbChatMessage.Text = ""
+        '
+        'TimerNEW_MESSAGE
+        '
+        '
+        'Timer_REFRESH
+        '
+        Me.Timer_REFRESH.Enabled = True
+        Me.Timer_REFRESH.Interval = 5000
+        '
+        'cntxt
+        '
+        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChatDeaktivierenToolStripMenuItem})
+        Me.cntxt.Name = "cntxt"
+        Me.cntxt.Size = New System.Drawing.Size(167, 26)
+        '
+        'ChatDeaktivierenToolStripMenuItem
+        '
+        Me.ChatDeaktivierenToolStripMenuItem.Name = "ChatDeaktivierenToolStripMenuItem"
+        Me.ChatDeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
+        Me.ChatDeaktivierenToolStripMenuItem.Text = "Chat deaktivieren"
+        '
         'frmMessenger
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(817, 596)
+        Me.ClientSize = New System.Drawing.Size(817, 654)
         Me.Controls.Add(Me.SplitContainer)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmMessenger"
@@ -377,6 +400,7 @@ Partial Class frmMessenger
         Me.SplitContainer.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer.ResumeLayout(False)
+        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.ResumeLayout(False)
         Me.Panel2.PerformLayout()
         Me.Panel1.ResumeLayout(False)
@@ -385,10 +409,10 @@ Partial Class frmMessenger
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
-        Me.pnl.ResumeLayout(False)
-        Me.cntxt.ResumeLayout(False)
-        CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit()
         Me.MyFlowLayoutPanel1.ResumeLayout(False)
+        Me.pnl.ResumeLayout(False)
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.cntxt.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
@@ -417,4 +441,6 @@ Partial Class frmMessenger
     Friend WithEvents cntxt As ContextMenuStrip
     Friend WithEvents ChatDeaktivierenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Button4 As Button
+    Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
+    Friend WithEvents pic As PictureBox
 End Class

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -8,6 +8,9 @@ Public Class frmMessenger
     Dim MSG_LISTENDER As New cMessangerListender
     Dim topMessages As String = "20"
     Dim loaded = False
+
+    Dim alloweasteregg = False
+
     Public Sub New()
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -42,8 +45,38 @@ Public Class frmMessenger
         End If
         MyFlowLayoutPanel1.Controls.Clear()
         'loaded = True
+        alloweasteregg = cAllgemein.MITARBEITER.mit_ChatEasteregg
+        initEmojis()
     End Sub
 
+    Sub initEmojis()
+        FlowLayoutPanel.Controls.Clear()
+        If alloweasteregg Then pic.Visible = False
+
+        If IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
+            For Each a In IO.Directory.GetFiles(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") '.OrderBy(Function(f) f)
+                If alloweasteregg Or Not a.Contains("easteregg") Then
+                    If IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
+
+                        Dim p As New PictureBox
+                        p.Size = New Size(40, 40)
+                        p.BackgroundImage = Image.FromFile(a)
+                        p.BackgroundImageLayout = ImageLayout.Zoom
+                        p.Cursor = Cursors.Hand
+                        AddHandler p.Click, Sub()
+                                                If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
+                                                If CHAT IsNot Nothing Then
+                                                    saveEmoji(a)
+                                                End If
+                                            End Sub
+
+                        FlowLayoutPanel.Controls.Add(p)
+                    End If
+                End If
+                'MsgBox(a)
+            Next
+        End If
+    End Sub
     Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True)
         With dgvChats
 
@@ -171,6 +204,16 @@ Public Class frmMessenger
                 'CHAT_ITEM.lblName.Text = MSG.chatMg_maId
                 Return (CHAT_ITEM)
 
+            Case "EMOJI"
+
+
+                Dim CHAT_ITEM As New usrCntlMessenger_ChatEmoji(MSG)
+                checkUsrId(MSG, CHAT_ITEM)
+                '   CHAT_ITEM.path = MSG.chatMg_text
+                ' CHAT_ITEM.txtChatmessage.Text = MSG.chatMg_text
+                'CHAT_ITEM.lblName.Text = MSG.chatMg_maId
+                Return (CHAT_ITEM)
+
         End Select
     End Function
 
@@ -193,6 +236,10 @@ Public Class frmMessenger
                                 If DirectCast(I, usrCntlMessenger_ChatAnhang).CHAT_MSG.chatMg_id = MSG.chatMg_id Then
                                     found = True
                                 End If
+                            Case GetType(usrCntlMessenger_ChatEmoji).ToString
+                                If DirectCast(I, usrCntlMessenger_ChatEmoji).CHAT_MSG.chatMg_id = MSG.chatMg_id Then
+                                    found = True
+                                End If
                         End Select
 
                     Next
@@ -248,7 +295,16 @@ Public Class frmMessenger
             CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192))
         End If
     End Sub
-
+    Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatEmoji)
+        If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+            CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0)
+            'CHAT_ITEM.Left = (MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30)
+            'CHAT_ITEM.Anchor = AnchorStyles.None
+            'CHAT_ITEM.Dock = DockStyle.Right
+            ' CHAT_ITEM.Dock = DockStyle.Right
+            CHAT_ITEM.setBgCOLOR(Color.FromArgb(192, 255, 192))
+        End If
+    End Sub
     Sub checkUsrId(MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages, CHAT_ITEM As usrCntlMessenger_ChatAnhang)
         If MSG.chatMg_maId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
             CHAT_ITEM.Margin = New Padding(MyFlowLayoutPanel1.Width - CHAT_ITEM.Width - 30, 0, 0, 0)
@@ -291,6 +347,8 @@ Public Class frmMessenger
                     DirectCast(u, usrCntlMessenger_ChatElement).lblNewMsg.Visible = False
                 Case GetType(usrCntlMessenger_ChatAnhang).ToString
                     DirectCast(u, usrCntlMessenger_ChatAnhang).lblNewMsg.Visible = False
+                Case GetType(usrCntlMessenger_ChatEmoji).ToString
+                    DirectCast(u, usrCntlMessenger_ChatEmoji).lblNewMsg.Visible = False
             End Select
         Next
     End Sub
@@ -500,6 +558,28 @@ Public Class frmMessenger
             End If
         End If
     End Sub
+    Sub saveEmoji(filePath)
+        '  Dim fileName = New IO.FileInfo(filePath).Name
+        'Dim docId = -1
+        'If saveToDS(fileName, filePath, docId) Then
+
+        Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+        MSG.chatMg_type = "EMOJI"
+        MSG.chatMg_text = filePath
+        'MSG.chatMg_anhang_docId = docId
+        MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
+        MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+        If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
+            SEND_TOKEN_NEW_MESSAGE()
+            ' CHAT.CHAT_MESSAGES.Add(MSG)
+            SET_ALL_READ()
+            REFRESH_CHAT()
+            'rtbChatMessage.Text = filePath
+            'rtbChatMessage.Focus()
+        End If
+        '  End If
+    End Sub
     Public Shared Function saveToDS(fileName, sourcePath, Optional ByRef da_id = -1) As Boolean
         Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "CHAT_ANHAENGE", Now.ToString("ddMMyy_HHmmss.ffff"), "", "", fileName, -1, False)
         If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
@@ -562,4 +642,28 @@ Public Class frmMessenger
             MsgBox("   FEHLER: DaagDrop!" & ex.Message & ex.StackTrace)
         End Try
     End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        If InputBox("Whoami?", "¿").ToLower = "easteregg" Then
+            cMitarbeiter.UPDATE_EASTEREGG(True)
+            cAllgemein.MITARBEITER.LOAD(cAllgemein.USRID)
+
+            alloweasteregg = True
+            initEmojis()
+            MsgBox("Hurra! Neue Emojis freigeschaltet!")
+        End If
+    End Sub
+
+    Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseEnter
+        pic.BackgroundImage = My.Resources.easteregg
+    End Sub
+
+    Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
+        pic.BackgroundImage = Nothing
+
+    End Sub
+
+    'Private Sub rtbChatMessage_TextChanged(sender As Object, e As EventArgs) Handles rtbChatMessage.TextChanged
+    '    FlowLayoutPanel.Enabled = (rtbChatMessage.Text = "")
+    'End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.Designer.vb

@@ -0,0 +1,119 @@
+Imports System.Windows.Forms
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlMessenger_ChatEmoji
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.pic = New System.Windows.Forms.PictureBox()
+        Me.lblDateTime = New System.Windows.Forms.Label()
+        Me.lblNewMsg = New System.Windows.Forms.Label()
+        Me.lblName = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.Controls.Add(Me.pic)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(378, 72)
+        Me.pnl.TabIndex = 0
+        '
+        'pic
+        '
+        Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.pic.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.docAllgemein
+        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.pic.Location = New System.Drawing.Point(258, 5)
+        Me.pic.Name = "pic"
+        Me.pic.Size = New System.Drawing.Size(100, 50)
+        Me.pic.TabIndex = 2
+        Me.pic.TabStop = False
+        '
+        'lblDateTime
+        '
+        Me.lblDateTime.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+        Me.lblDateTime.ForeColor = System.Drawing.Color.Black
+        Me.lblDateTime.Location = New System.Drawing.Point(226, 58)
+        Me.lblDateTime.Name = "lblDateTime"
+        Me.lblDateTime.Size = New System.Drawing.Size(132, 13)
+        Me.lblDateTime.TabIndex = 5
+        Me.lblDateTime.Text = "01.01.2020 10:12:00"
+        Me.lblDateTime.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'lblNewMsg
+        '
+        Me.lblNewMsg.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblNewMsg.AutoSize = True
+        Me.lblNewMsg.BackColor = System.Drawing.Color.Red
+        Me.lblNewMsg.Font = New System.Drawing.Font("Arial Black", 7.0!, System.Drawing.FontStyle.Bold)
+        Me.lblNewMsg.ForeColor = System.Drawing.Color.White
+        Me.lblNewMsg.Location = New System.Drawing.Point(364, 58)
+        Me.lblNewMsg.Name = "lblNewMsg"
+        Me.lblNewMsg.Size = New System.Drawing.Size(11, 14)
+        Me.lblNewMsg.TabIndex = 6
+        Me.lblNewMsg.Text = "!"
+        Me.lblNewMsg.Visible = False
+        '
+        'lblName
+        '
+        Me.lblName.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblName.AutoSize = True
+        Me.lblName.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
+        Me.lblName.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.lblName.Location = New System.Drawing.Point(4, 58)
+        Me.lblName.Name = "lblName"
+        Me.lblName.Size = New System.Drawing.Size(155, 13)
+        Me.lblName.TabIndex = 4
+        Me.lblName.Text = "Max Mustermann (VERAG)"
+        '
+        'usrCntlMessenger_ChatEmoji
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.lblDateTime)
+        Me.Controls.Add(Me.lblName)
+        Me.Controls.Add(Me.lblNewMsg)
+        Me.Controls.Add(Me.pnl)
+        Me.Name = "usrCntlMessenger_ChatEmoji"
+        Me.Size = New System.Drawing.Size(378, 72)
+        Me.pnl.ResumeLayout(False)
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents pic As PictureBox
+    Friend WithEvents lblDateTime As Label
+    Friend WithEvents lblNewMsg As Label
+    Friend WithEvents lblName As Label
+End Class

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

VERAG_PROG_ALLGEMEIN/Messenger/usrCntlMessenger_ChatEmoji.vb

@@ -0,0 +1,73 @@
+Imports System.Drawing
+
+Public Class usrCntlMessenger_ChatEmoji
+    Property BG_COLOR As Color = Color.FromArgb(192, 255, 192) ' Color.Azure
+    Property CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages
+
+    'Public FI As String = ""
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(CHAT_MSG As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.CHAT_MSG = CHAT_MSG
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Sub setBgCOLOR(BG_COLOR)
+        ' Me.BG_COLOR = BG_COLOR
+        ' txtChatmessage.BackColor = BG_COLOR
+        'Panel1.BackColor = BG_COLOR
+    End Sub
+
+    Private Sub usrCntlMessenger_ChatAnhang_Load(sender As Object, e As EventArgs) Handles Me.Load
+        init()
+    End Sub
+
+    Sub init()
+        If CHAT_MSG IsNot Nothing Then
+            ' txtChatmessage.Text = CHAT_MSG.chatMg_text
+            Try
+
+                pic.BackgroundImage = Image.FromFile(CHAT_MSG.chatMg_text)
+                pic.BackgroundImageLayout = Windows.Forms.ImageLayout.Zoom
+            Catch ex As Exception
+                '  MsgBox(ex.Message & ex.StackTrace)
+            End Try
+            lblDateTime.Text = CHAT_MSG.chatMg_datetime.ToString("dd.MM.yyyy HH:mm:ss")
+            lblName.Text = CHAT_MSG.chatMg_maName & " (" & CHAT_MSG.chatMg_maFirma & ")"
+
+            Dim cnt = 0
+
+            setRead()
+
+
+        End If
+    End Sub
+
+    Sub setRead()
+        For Each ST In CHAT_MSG.CHAT_MESSAGES_STATUS_LIST
+            If ST.chatMgSt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+                lblNewMsg.Visible = Not ST.chatMgSt_gelesen
+            End If
+        Next
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        If CHAT_MSG IsNot Nothing Then
+            Dim PATH = cDATENSERVER.GET_PDFPath_BY_DocID(CHAT_MSG.chatMg_anhang_docId, True)
+            'Process.Start(PATH)
+        End If
+    End Sub
+
+
+End Class

VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb

@@ -100,6 +100,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property easteregg() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("easteregg", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

VERAG_PROG_ALLGEMEIN/My Project/Resources.resx

@@ -217,4 +217,7 @@
   <data name="people" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\people.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="easteregg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\easteregg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -394,6 +394,12 @@
     <Compile Include="Messenger\frmMessenger_NeuerChat.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Messenger\usrCntlMessenger_ChatEmoji.Designer.vb">
+      <DependentUpon>usrCntlMessenger_ChatEmoji.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Messenger\usrCntlMessenger_ChatEmoji.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Messenger\usrCntlMessenger_ChatAnhang.Designer.vb">
       <DependentUpon>usrCntlMessenger_ChatAnhang.vb</DependentUpon>
     </Compile>
@@ -500,6 +506,9 @@
     <EmbeddedResource Include="Messenger\frmMessenger_NeuerChat.resx">
       <DependentUpon>frmMessenger_NeuerChat.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Messenger\usrCntlMessenger_ChatEmoji.resx">
+      <DependentUpon>usrCntlMessenger_ChatEmoji.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Messenger\usrCntlMessenger_ChatAnhang.resx">
       <DependentUpon>usrCntlMessenger_ChatAnhang.vb</DependentUpon>
     </EmbeddedResource>
@@ -705,6 +714,9 @@
       <Version>6.0.8</Version>
     </PackageReference>
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\easteregg.jpg" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <ProjectExtensions />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it.