同じ画面位置に表示するには (ID:108684)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな事ですか？ '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