DEFINE CLASS test AS toolbar
 Caption =  "Test" 
 Name =  "test" 
 PROCEDURE Destroy
  lcSafety=SET( "Safety" )
  nTlbDockPos=this.DockPosition 
  nTlbLeft=this.Left
  nTlbTop=this.Top
  SET SAFETY OFF 
  SAVE TO toolbar.cfg ALL LIKE nTlb*
  SET SAFETY &lcSafety 
 ENDPROC
 PROCEDURE Init
  IF FILE( "toolbar.cfg" )
   RESTORE FROM toolbar.cfg ADDITIVE 
   this.Dock(nTlbDockPos, nTlbLeft, nTlbTop)
  ENDIF 
  this.Visible=.T.
 ENDPROC
ENDDEFINE