*在标签label1的AutoSize属性设置为.T.
*在表单的INIT中:
this.Resize
*在表单的Resize中
this.label1.FontSize=IIF(INT(this.width/25)<12,12,INT(this.width/25)) && 在标签label1的字体计算结果(this.width/25)小于12为12,25为拟定数可以自行设置
thisform.label1.left=(thisform.width/2)-(thisform.label1.width/2)
&&调整居中
this.refresh