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.



 End If

End Sub