Vererbung Tabelle Finalisierung

app/TaskFlow/frmMain.vb

@@ -799,6 +799,7 @@ Public Class frmMain
     Sub LoadNavBar()
         Dim profileGroupOpen As Boolean = False
         If Not IsNothing(CurrNavBarGroup) Then
+            NavBarControl1.BeginUpdate() ' <-- Hinzufügen
             Try
                 profileGroupOpen = CurrNavBarGroup.Expanded
                 Try
@@ -810,8 +811,10 @@ Public Class frmMain
                 End Try
 
             Catch ex As Exception
-
+            Finally
+                NavBarControl1.EndUpdate() ' <-- Hinzufügen
             End Try
+
         End If
         Try