merge

Aviso/frmHauptfenster.vb

@@ -4088,10 +4088,13 @@ Public Class frmHauptfenster
                 ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST
 
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
+                    VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False 'NEUE NACHTICHTEN
                     Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
-                    Label20.Text = newMsg
+                    Label20.Text = newMsg.ToString
                     Label20.Visible = (newMsg > 0)
-                    If newMsg Then
+                    VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN
+
+                    If newMsg > 0 Then
                         Me.Icon = My.Resources.avisoNewMsg
 
                         Dim isshown = False