LOCAL nWindowCnt, nWinNum
LOCAL ARRAY aToolbars[nWindowCnt]

nWindowCnt = 12

** Fill toolbar name array
aToolBars[01] = "Form Designer"
aToolBars[02] = "Standard"
aToolBars[03] = "Layout"
aToolBars[04] = "Query Designer"
aToolBars[05] = "View Designer"
aToolBars[06] = "Color Palette"
aToolBars[07] = "Form Controls"
aToolBars[08] = "Database Designer"
aToolBars[09] = "Report Designer"
aToolBars[10] = "Report Controls"
aToolBars[11] = "Print Preview"
aToolBars[12] = "Project"

** Hide the VFP toolbars
FOR nWinNum = 1 TO nWindowCnt
IF WVISIBLE(aToolBars[nWinNum])
HIDE WINDOW &aToolBars[nWinNum]
ENDIF
ENDFOR