Counting the MDI child forms

[RohanWest]

any way to count the child forms in an MDI form?

Any answers?

Rohan

[r0ach]

Try the Forms Collection

[RohanWest]

Do you have any example code to show me?

[Negative0]

Try this:

Dim myform As Form
Dim count As Integer
For Each myform In Forms
  If myform.Name <> "MDIForm1" Then
    If myform.MDIChild = True Then
      count = count + 1
    End If
  End If
Next
MsgBox (count)

Hope this helps

This example is using the Forms Collection. Make an MDIForm with a PictureBox on it and Place this code into the Click Event of it. (Make sure you have another Form called Form1 and set the MDIChild property to True.

Private Sub Picture1_Click()

    Dim NewForm As Form1
    Set NewForm = New Form1
    NewForm.Show
    
    MsgBox (Forms.Count - 1)

End Sub