>You can search for a list of toolbar names here, and then create an array with those elements. Scroll thoruhg the array, and if the exist (wexist()) you can HIDE WINDOW them.

PARAMETERS p_lKeepToolbars
LOCAL l_n
DIMENSION This.r_aSystemToolbars[12,2]

This.r_aSystemToolbars[ 1,1] = "Print Preview"
This.r_aSystemToolbars[ 2,1] = "Report Designer"
This.r_aSystemToolbars[ 3,1] = "Form Controls"
This.r_aSystemToolbars[ 4,1] = "Standard"
This.r_aSystemToolbars[ 5,1] = "Form Designer"
This.r_aSystemToolbars[ 6,1] = "Layout"
This.r_aSystemToolbars[ 7,1] = "Database Designer"
This.r_aSystemToolbars[ 8,1] = "View Designer"
This.r_aSystemToolbars[ 9,1] = "Report Controls"
This.r_aSystemToolbars[10,1] = "Color Palette"
This.r_aSystemToolbars[11,1] = "Query Designer"
This.r_aSystemToolbars[12,1] = "Debugger"

FOR l_n = 1 To 12
  IF WVISIBLE(This.r_aSystemToolbars[l_n, 1])
    This.r_aSystemToolbars[l_n, 2] = .T.
    IF NOT p_lKeepToolbars
      HIDE WINDOW (This.r_aSystemToolbars[l_n, 1])
    ENDIF
  ENDIF
ENDFOR