同じ画面位置に表示するには

ゆう 2003-09-15 23:07:47 No: 108683

現在
private sub button1_click()
    dim frm as new form2
    me.visible=false
    frm.showdialog(me)
    me.visible=true
end sub
でform1からform２を表示しているのですが、
form1と同じ位置にform2を表示したいのです。
form1とform２は同じサイズです。
教えてください。お願いします。

Take1 2003-09-15 23:22:29 No: 108684

こんな事ですか？

'Form1側
Private Sub Command1_Click()

    With Form2
        .Left = Me.Left
        .Top = Me.Top
        .Show
    End With

    Me.Visible = False

End Sub

'Form2側
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Form1.Visible = True
End Sub