'Form1
Option Explicit
Private Declare Function MoveWindow Lib "user32.dll" (ByVal hWnd As Long, _
  ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
  ByVal nHeight As Long, ByVal bRepaint As Long) As Long
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Private R As RECT
Private R1 As RECT

 'Form1
Private Sub Form_Load()
  Timer1.Enabled = False
  R1.Left = Me.Left
  R1.Top = Me.Top
  R1.Right = Me.Left + Me.Width
  R1.Bottom = Me.Top + Me.Height
  R.Left = Me.Left
  R.Top = Me.Top
  R.Right = Me.Left + Me.Width
  R.Bottom = Me.Top + Me.Height
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Dim f As Form
 Timer1.Enabled = False
 For Each f In Forms
   Unload f
    Set f = Nothing
 Next
End Sub
 
Private Sub Timer1_Timer()
  R.Left = Me.Left
  R.Top = Me.Top
  R.Right = Me.Left + Me.Width
  R.Bottom = Me.Top + Me.Height
 
If R1.Left <> R.Left Or _
   R1.Top <> R.Top Or _
   R1.Right <> R.Right Or _
   R1.Bottom <> R.Bottom Then
 
  MoveWindow Form2.hWnd, (Form1.Left + Form1.Width) / Screen.TwipsPerPixelX, _
             Form1.Top / Screen.TwipsPerPixelY, _
             Form2.Width / Screen.TwipsPerPixelX, _
             Form2.Height / Screen.TwipsPerPixelY, True
End If
End Sub

'Form2
Private Sub Form_Load()
  Form1.Timer1.Interval = 333
  Form1.Timer1.Enabled = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 Form1.Timer1.Enabled = False
End Sub

Gru? aus dem Norden
manyki