PROCEDRUE SURE-WIDTH
相当于一个局部过程
,只能在本单元里使用,不受本窗口FORM的影响。