Как можно заставить одновременно перемещяться 2 разные формы, точнее при перемещении одной - другая следовала за ней?
Что-то вроде этого : две формы на одной кнопка "show form2", для визуализации второй формы, и когда две эти формы на экране, при перемещении первой, вторая одновеменно повторила бы траекторию первой
- Код: Выделить всё
Private Sub Command1_Click()
With Form2
.Left = Form1.Left + 500
.Top = Form1.Top + Form1.Height + 500
.Show
End With
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Unload Form2
Unload Form1
End Sub
Заранее благодарю
