RMC, Adressen, USTV, Messenger

SDL/frmMain.vb

@@ -886,9 +886,10 @@ Public Class frmMain
                 ' 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
+                'VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN warum hier ????????????
+                If newMsg > 0 Then
+                    VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True
+                    'Me.Icon = My.Resources.avisoNewMsg
 
                     Dim isshown = False
                     For Each openForm In Application.OpenForms()
@@ -914,7 +915,7 @@ Public Class frmMain
             End If
 
         Catch ex As Exception
-
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
     End Sub