I have a project where I want to display information in one or more forms
  With hForm = New Form
    .Name = "xx"
    .X = 50
    .Y = 50
    .W = 200
    .H = 200
    .Caption = "new"
    .Show
  End With
This code will create a number of new forms but they still exist after the project is closed, how can I close them when the project is closed?
Any help appreciated

bill-lancaster said

…This code will create a number of new forms but they still exist after the project is closed…

You basically need to reference each form in the main form's close event:-


But exactly how you do this may depend upon how you are creating the additional forms (i.e. whether you can simply do this using known form names, or whether you need a more flexible approach).

 Thanks Stevedee,
You're right, referencing the forms is the question.
If a form call hForm is created (as per my example) then it can be destroyed with 'hForm.Close', but the code can create multiple forms and 'hForm.Close' closes only the first one created since the others won't have the same name.
I imaging the 'handle' property might be useful here but how?

 One solution is to create an array of forms, not very elegant because the number of forms possible is set at declaration.
It work though!

I think the solution you are looking for is Application.MainWindow. You just need a Form with a button on it called 'Button1' to run this code. Run the code then click the button.

The help is here.

 Thank you cogier, that works nicely, however, I realise that I have a main form from which is opened a second form (Form2).  New windows generated from Form2 don't close with hForm.Close. Have tried Application.MainWindow = Me and Application.MainWindow = fMain but the new forms don't close.
Any ideas?

Have you tried putting:-


…in your main form?

Thank you cogier, that works nicely, however, I realise that I have a main form from which is opened a second form (Form2). New windows generated from Form2 don't close with hForm.Close. Have tried Application.MainWindow = Me and Application.MainWindow = fMain but the new forms don't close.
Any ideas?

Can you provide some code as to how you are doing this please, that is if Steve's answer isn't the solution. (Which it probably is as he's good :!: )

 Yes, the code does the job well, I actually need to keep Form2 so:-
    If cwin.Name = "FDocShow" Then cwin.Close
does the job
Thanks again