Private Sub Form_Resize ()
dim control1 as control,m1 as single,m2 as single
m1=form.width/form.width(改变前的)
m2=form.height/form.height(改变前的)
for each control1 in form.controls
control1.left=control1.left*m1
control1.top=control1.top*m2
control1.height=control1.height*m2
control1.width=control1.width*m1
next
End Sub