diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 0d850a5..9de6b30 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/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)