ShowAllToolBars function is defined in SHELL.VB, and it is common for all main tabs.

It finds the current main tab by means of this piece of code:

 <ShellCommand(CanExecute:="Ena_IsWindowActive")> _

Public Sub ShowAllToolBars()

  Dim view As WinUI.Controls.ShellResultView = Main.GetResultView()

  Dim tab As WinUI.Controls.ShellTabItem = Main

  Select Case tab.Name

    Case "Fred4Pages"

       Main.ToggleToolBar(MainToolBar.Main, "Main", "Top", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.Fit, "", "Top", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.Formatting, "Main", "Top", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.TextStyle, "Main", "Top", ToggleAction.Open)

 

       Main.ToggleToolBar(MainToolBar.Toolbox, "", "Left", ToggleAction.Open)

 

       Main.ToggleToolBar(MainToolBar.Layout, "", "Bottom", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.PageTools, "", "Bottom", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.Images, "", "Bottom", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.Alignment, "", "Bottom", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.ArticleFrames, "", "Bottom", ToggleAction.Open)

      'Main.ToggleToolBar(MainToolBar.Delete, "", "Left", ToggleAction.Open)

      'Main.ToggleToolBar(MainToolBar.Aux7, "", "Left", ToggleAction.Open)

      'Main.ToggleToolBar(MainToolBar.Shapes, "", "Left", ToggleAction.Open)

    Case "Ted4Articles"

      'first row

       Main.ToggleToolBar(MainToolBar.MainTed, "Main", "Top", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.Article, "Main", "Top", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.Table, "Main", "Top", ToggleAction.Open)

      'second row

       Main.ToggleToolBar(MainToolBar.Regions, "Main", "Top", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.TextStyle, "Main", "Top", ToggleAction.Open)

       Main.ToggleToolBar(MainToolBar.Formatting, "Main", "Top", ToggleAction.Open)

  End Select

   Main.ToggleToolBar(MainToolBar.Search, "Main", "Bottom", ToggleAction.Open)

   Main.ToggleToolBar(MainToolBar.GlobalSearch, "Main", "Bottom", ToggleAction.Open)

 

End Sub