algo asi:
Código (vb) [Seleccionar]
Private Sub Command1_Click()
Form2.Top = Form1.Top
Form2.Left = Form1.Left + Form1.Width
Form2.Show
End Sub