HideAll Method Example

This example displays a prompt for hiding all QuickPads and Toolbars of the active session.

Sub Main()

 Dim Sys As Object, Sess As Object

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 HideEm = MsgBox("Do you wish to hide all Toolbars and QuickPads?", 1,"Hide All ...")

 If HideEm=1 Then 'The above message box returns 1 if Okay
      'is chosen.

  Sess.QuickPads.HideAll

  Sess.Toolbars.HideAll

 End If

End Sub