Private Sub Form2_Move(sender As Object, e As EventArgs) Handles Me.Move Form1.Left = Me.Left Form1.Top = Me.Top End Sub