VB设置打开的窗体的大小和位置 和前一个保持一致

VB设置打开的窗体的大小和位置 和前一个保持一致
form1.hide
form2.show

这是form2要跟form1在屏幕上的位置相同 大小也和form1相同 如果1最大化了 那么2也会以最大化出现
我用了5个窗体
它们之前可以任意顺序切换
怎么和上一个开启的保持一致

'添加一个模块，输入以下代码
Option Explicit

Public m_CurrentForm As Object
Public m_LastForm As Object

Public Sub ReadFormData()
m_CurrentForm.Top = m_LastForm.Top
m_CurrentForm.Left = m_LastForm.Left
m_CurrentForm.Height = m_LastForm.Height
m_CurrentForm.Width = m_LastForm.Width
End Sub

'在所有的窗体中添加如下代码
Private Sub Form_Activate()
Set m_CurrentForm = Me
ReadFormData
End Sub

Private Sub Form_Deactivate()
Set m_LastForm = Me
End Sub

方法一：
form2.Top = Form1.Top
form2.Left = Form1.Left
form2.Height = Form1.Height
form2.Width = Form1.Width
前提是打开form2时form1不关闭。

方法二：
在模块中设置全局变量（变量名随意修改）：
Public Top1 As Integer
Public Left1 As Integer
Public Height1 As Integer
Public Width1 As Integer
在form1给变量赋值：
Top1 = Form1.Top
Left1 = Form1.Left
Height1 = Form1.Height
Width1 = Form1.Width