Как открывать формы по очереди?

[Эд]

Есть код:
Form1.Show
Form2.Show
Если запустить, откроются обе формы.
А как сделать открывание по очереди, т.е. пока не закрыта Fofm1, Form2 не запускается (как в VBA)

[Aleksej]

Код: Выделить всё

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Form2.Show
End Sub


[Kostyan]

Form1.Show vbModal
Form2.Show

[Эд]

СПАСИБО!