求助？怎样让frame中的所有控件同比例缩小？

Question

怎样让frame中的所有控件同比例缩小？如果一个一个控件设置太麻烦了，有什么好方法吗？能不能给个示例？

Answer 1

Private Sub Command1_Click()
    On Error Resume Next
    Dim x As Object
    For Each x In Me.Controls
        If x.Container Is Frame1 Then
            x.Width = x.Width * 0.5
        End If
    Next
End Sub

Answer 2

比例！ 
frame 中的控件大小全部都以 frame的百分比来设置 比如
command1.left=frame.left*0.15
.........
把所有控件都设置在一个模块中 当frame大小发生改变的时候 调用模块 MS 什么都没说...

Answer 3

ComponentOne 插件中有一个可以实现比例自动缩放，楼主可以找一下