vb6 我想把窗体里面的所有控件同时移动（不移动窗体）

Question

如题，我的窗体有三十几个控件，我想同时在代码里移动所以控件在窗体上的位置，有没有比较简单，代码比较少的方法，
我的方法是同时改变所有控件的TOP值和LEFT值，但代码太多，有好的方法没有

Answer 1

'参考下面的例子,每次点击按钮后可以让窗体中的控件（按钮，图片框、label,textbox等）向右移动
Private Sub Command2_Click()
    Dim c As Control
    For Each c In Me.Controls
        c.Move c.Left + 100
    Next
End Sub

Answer 2

'参考下面的例子,每次点击按钮后可以让窗体中的控件（按钮，图片框、label,textbox等）向右移动
Private Sub Command2_Click()
    Dim c As Control
    For Each c In Me.Controls
        c.Move c.Left + 100
    Next
End Sub

Answer 3

Private Sub Command1_Click() 
    Dim Contrl As Control 
    For Each Contrl In Form1 
      Contrl.left= Contrl.left+100 
Contrl.top=20 
    Next 
End Sub

Answer 4

放在 Frame 中，然后移动 Frame。

Answer 5

把所有控件放在同一个容器（比如frame、picturebox等）中，然后只需用代码改变这个容器控件的left和top就可以了。