jj: fix profil panel being collapsed on refresh

app/DD_PM_WINDREAM/frmMain.vb

@@ -221,8 +221,11 @@ Public Class frmMain
 
     Sub Load_Profile_items()
         Cursor = Cursors.WaitCursor
+        Dim profileGroupOpen As Boolean = False
+
         Try
             Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(0)
+            profileGroupOpen = CurrGroup.Expanded
             Try
 
                 CurrGroup.ItemLinks.Clear()
@@ -253,9 +256,8 @@ Public Class frmMain
 
                 AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
             Next
-            If GRID_LOAD_TYPE = "OVERVIEW" Then
-                CurrGroup.Expanded = False
-            End If
+
+            CurrGroup.Expanded = profileGroupOpen
 
         Catch ex As Exception
             ClassLogger.Add("Load_Profile_items - Error: " & ex.Message)