Showing multiple forms

[kl899]

Here's the deal: I have a form called frmMessage that I am putting into a collection called frmEmessage. Then I show the form that I just put into the collection. The problem is that when the newly added form is shown, it replaces the one before it. In other words, I need to have the forms in the collection that were already shown to stay on the screen. Any ideas?


Private Sub Command1_Click()
intemessagecount = intemessagecount + 1
frmEmessage.Add frmMessage, (Str(intemessagecount))
frmEmessage(intemessagecount).Show
End Sub

Same Prob!!!!!!
Let me know if you find the answer please

[email protected]

Try this. It will open a new copy of the same Form.

Dim NewForm As New Form1
NewForm.Show

[Ruxpin]

Yeah create a new instance of the form and show it

Private Sub Command1_Click() 
    Dim frmInstance     As frmMessage

    Set frmInstance = New frmMessage
    frmInstance.Show
End Sub

Then to make sure you unload them all if you application closes. Loop thru the forms collection.

    Dim frmTemp       As Form

    For Each frmTemp in Forms
       Unload frmTemp
    Next frmTemp