Waiting for Form to unload

Hello!

I have sub where I show form and then execution of code behind Form1.show must wait until Form1 unloads. Something like that:

Sub Main()
Form1.show '(login form)
'here must program execution stop until form1 is unloaded
'but I don't know how can I do that
...
... 'other code
...
End Sub

Can anyone help me with that?

Its really simple

Code:

---

sub main()
form1.show 1
'other code
end sub

---

The one makes the form get shown modally which makes it finish before any other code is executed.

Hope this helps

Code:

---

sub main()
form1.show
Do while forms.count
  'Code here if you want to
  Doevents
Loop
'other code
end sub

---