SET SAFETY ON
SET SYSMENU ON
SET SYSMENU TO DEFA
SET DELETE ON
SET SAFETY OFF
SET TALK OFF
SET EXCLUSIVE OFF
SET STATUS BAR ON
SET DATE TO BRIT
SET CENTURY ON
SET NEAR ON
SET HOUR TO 24
SET COLLATE TO "THAI"
SET HELP OFF
If WExist("standard")  && VFP "standard" toolbar
  	Hide Window "standard" &&...seems can't be done with screen hidden.
Endif
_Screen.Forecolor = RGB(0,0,0) 
_Screen.Backcolor = RGB(64,128,128) 
Close Data
Clear WINDOWS
Clear Events
Do Form \Pos\Security\Prog\ChangeFolder
