Private Sub Command1_Click() Form2.Top = Form1.Top Form2.Left = Form1.Left + Form1.Width Form2.ShowEnd Sub