USTV Antragsart

SDL/frmMain.vb

@@ -881,10 +881,12 @@ Public Class frmMain
         End If
         Try
             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()
                 ' MsgBox(newMsg)
                 Label20.Text = newMsg
                 Label20.Visible = (newMsg > 0)
+                VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN
                 If newMsg Then
                     ' Me.Icon = My.Resources.avisoNewMsg
 
@@ -914,6 +916,7 @@ Public Class frmMain
         Catch ex As Exception
 
         End Try
+
     End Sub
 
     Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click