>******************************************************************** >* Description.......: Hide_Restore_Toolbars >* Calling Samples...: >* Parameter List....: >* Created by........: Mike Helland >* Modified by.......: >******************************************************************** >dimension aToolbar[13, 2] >aToolbar[ 1, 1] = 'Color Palette' >aToolbar[ 2, 1] = 'Database Designer' >aToolbar[ 3, 1] = 'Form Controls' >aToolbar[ 4, 1] = 'Form Designer' >aToolbar[ 5, 1] = 'Layout' >aToolbar[ 6, 1] = 'Print Preview' >aToolbar[ 7, 1] = 'Query Designer' >aToolbar[ 8, 1] = 'Report Controls' >aToolbar[ 9, 1] = 'Report Designer' >aToolbar[10, 1] = 'Standard' >aToolbar[11, 1] = 'View Designer' >aToolbar[12, 1] = 'Project Manager' > >* Hide VFP's toolbars. > >for lnI = 1 to alen(aToolbar, 1) > aToolbar[lnI, 2] = wvisible(aToolbar [lnI, 1]) > if aToolbar[lnI, 2] > hide window (aToolbar[lnI, 1]) > endif aToolbar[lnI, 2] >next lnI > > >******** Rest of the app > >* Redisplay VFP's toolbars. > >for lnI = 1 to alen(aToolbar, 1) > if aToolbar[lnI, 2] > show window (aToolbar[lnI, 1]) > endif aToolbar[lnI, 2] >next lnIYou can also find such code in VFP Tastrade sample in Application class (releasetoolbars/showtoolbars methods)