Unload Forms Properly

[glotzbam]

I am having problems unloading forms. I am currently running a parent form with several child forms and a few seperate forms. In the Form_Unload of the parent form, I am running the following block of code:

Private Sub Form_Unload(Cancel as Integer)
Dim frm as Form

For Each frm in Forms
Unload frm
Next frm
End Sub

When this is run, it makes it all the way through, then after the End Sub is executed, i get an illegal operation error.

VB5 caused an invalid page fault in
module KERNEL32.DLL at 014f:bff7926e.

I have been trying to get this thing to work now for several hours, and am out of things to try. Anyone have any suggestions?????

[Stevie]

It's only a guess but, you are looping through all the forms and unloading them, so therefore is it trying to unload the mdi parent form again.
Try something like :

for each frm in forms
if frm.name <> "mdiParent" then unload frm
next frm

[glotzbam]

Thank you for your help, but I still got the same error. Anyone else have anything I can try?

[Desire]

Hello,
Here we go try this, I've never had no problems with it so hopefully you shouldn't either.

    Dim x As Integer
    For x = (Forms.Count - 1) To 0 Step -1
        If TypeOf Forms(x) Is MDIForm Then
            '//DO NOTHING
        Else
            Unload Forms(x)
        End If
    Next x

Hope it helps,
Desire.

[glotzbam]

Still no luck Desire. Thanks anyways. Can anyone else offer an opinion?

[Desire]

Hello,
Is your parent form a MDIForm of just a standard form?

Desire.

[kedaman]

VB5 caused an invalid page fault in
module KERNEL32.DLL at 014f:bff7926e.

I have had the same kind of problem once, but I need to take a look at your project. Could you send it to me?

[glotzbam]

Thank you for all of your help. I have actually found the problem, but would like some input on this as well.

The problem was that I was Redimming a few arrays several times throughout the code. When it went to unload the form, I guess it had problems with releasing this memory. I got around it by:

Set Array = Nothing

Then I went on with:
For Each frm in Forms
Unload frm
Next frm

That worked great. I do not fully understand why it would have had a problem releasing those arrays. Could anyone comment on that?