Showing Multiple Forms

Huh? That only makes the Form the Topmost.

Add this to Form1.

Private Sub Form_Load()
    Form2.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Form2.Tag = ""
    Unload Form2
End Sub

Add this to Form2.

Private Sub Form_Load()
    Me.Tag = "BLOCK"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Form2.Tag = "BLOCK" Then Cancel = True
End Sub