Should be an easy one!!

[pmalouin]

I just finished writing my first program... After compiling it I ran it, then I used the X on the border to close it. At first, everything seemed normal but I checked my task manager and my program was still running!!!!
Is there something I need to set in order to make it functional?

Thanx

Private Sub Form_Unload()

    Dim F As Form
    
    For Each F In Forms
        Unload F
    Next F

End Sub

You should set each form to nothing so it doesn't still use any resources after it has been unloaded.

Public Sub UnloadAllForms()
Dim OfTheseForms As Form
For Each OfTheseForms In Forms
Unload OfTheseForms
Set OfTheseForms = Nothing
Next OfTheseForms
End Sub

Or use the End command.

[pmalouin]

I don't know if I'm just stupid but when compiling it doesn't seem to like the "Private sub Form_Unload" what should I modify to adapt it to my program?

Thanx

Hehe, don't copy that Private Sub Form_Unload event. The code Dennis gave is suppose to go in that event. But his code only unloads them, doesn't set them so they don't use any resources. You should use UnloadAllForms(). And even, as Megatron suggested, put an end after it all.

Public Sub UnloadAllForms()
Dim OfTheseForms As Form
For Each OfTheseForms In Forms
Unload OfTheseForms
Set OfTheseForms = Nothing
Next OfTheseForms
End
End Sub

[pmalouin]

Thank you!