关于关闭窗体

Question

1窗体有个按键Command2
效果
当按2窗体右上角的x时，只是隐藏2窗体，当按1窗体的Command2才是真正的关闭2窗体
该怎么写呢

Answer 1

form1:
Option ExplicitPrivate Sub Command1_Click()
    Form2.flag = True
    Unload Form2
End SubPrivate Sub Command2_Click()
    Form2.Show
End Subform2:
Option Explicit
Public flag As BooleanPrivate Sub Form_Unload(Cancel As Integer)
    If flag = False Then
        Cancel = 1
        Me.Hide
    End If
End Sub

Answer 2

1楼的老师，我在2窗体加入一个text做实验，当开始运行时，进入2窗体向text添加内容，退出，再进入，这时text添加的内容还在，但如果按了1窗体Command1后，这时2窗体到了最初状态，再进入2窗体向text添加内容，再退出，再进入，这时text添加的内容没了，这就不对了

Answer 3

1楼的老师，我在2窗体加入一个text做实验，当开始运行时，进入2窗体向text添加内容，退出，再进入，这时text添加的内容还在，但如果按了1窗体Command1后，这时2窗体到了最初状态，再进入2窗体向text添加内容，再退出，再进入，这时text添加的内容没了，这就不对了

Answer 4

1楼的老师，我在2窗体加入一个text做实验，当开始运行时，进入2窗体向text添加内容，退出，再进入，这时text添加的内容还在，但如果按了1窗体Command1后，这时2窗体到了最初状态，再进入2窗体向text添加内容，再退出，再进入，这时text添加的内容没了，这就不对了

Answer 5

Form1:
Private Sub Form_Unload(Cancel As Integer)
end
End Sub
Form2:
Private Sub Form_Unload(Cancel As Integer)
cancel=1
me.hide
End Sub

Answer 6

Form1: 
Private Sub Command2_Click()
Unload Form2
End Sub 
Form2: 
Private Sub Form_Unload(Cancel As Integer) 
cancel=1 
me.hide 
End Sub 

Answer 7

Form1: 
Private Sub Command2_Click() 
Unload Form2 
End Sub 
Form2: 
Private Sub Form_Unload(Cancel As Integer) 
cancel=1 
me.hide 
End Sub 
这个 
Private Sub Command2_Click() 
Unload Form2 
End Sub 关闭不了

Answer 8

呵呵 是我错了 死循环了
这个没问题了
'form1 code
Private Sub Command2_Click()
Form2.Tag = "Esc"
Unload Form2
End Sub
Private Sub Form_Load()
Form2.Show
End Sub
'form2 code
Private Sub Form_Unload(Cancel As Integer)
If Form2.Tag = "Esc" Then
    Cancel = 0
Else
    Cancel = 1
    Me.Hide
End If
End Sub