Dim i As Long, kx As Single, ky As Single
MeWidth = Me.ScaleWidth
MeHeight = Me.ScaleHeight
ScaleHeight = 1000   
ScaleWidth = 1000  
ReDim myctr(Controls.Count)
For i = 0 To Controls.Count - 1
     myctr(i).Width = Controls(i).Width
     myctr(i).Height = Controls(i).Height
     myctr(i).Left = Controls(i).Left
     myctr(i).Top = Controls(i).Top
Next
kx = Screen.Width / 1024 / 15
ky = Screen.Height / 768 / 15
Width = Width * kx
Height = Height * ky
Move Left * kx, Top * ky

运行时提示： 实时错误：438  对象不支持该属性或方法
myctr(i).Width = Controls(i).Width
求解…………

有补救的措施没？

就是Timer控件，多谢多谢。
又学了一招，嘿嘿。