Private Sub Form_Click() Dim CTRL As Control Form1.Left = Form1.Left + Form1.Width For Each CTRL In Form1.Controls CTRL.Left = CTRL.Left - Form1.Width Next End Sub
Private Sub Form_Click() Dim CTRL As Control Form1.Left = Form1.Left + Form1.Width For Each CTRL In Form1.Controls CTRL.Left = CTRL.Left - Form1.Width Next End Sub