Private Function NumberOfChildForms() As Long
Dim lngIndex As Long
Dim frmChild As Form
For Each frmChild In Forms
If frmChild.MDIChild Then
lngIndex = lngIndex + 1
End If
Next frmChild
NumberOfChildForms = lngIndex
End Function
--------------------------------------------------------------------------------

Also in your child forms have this:

visual basic code:--------------------------------------------------------------------------------
Option Explicit

Private cnt As Integer

Public Property Let cntValue(ByVal Value As Integer)
cnt = Value
End Property

Public Property Get cntValue() As Integer
cntValue = cnt
End property

Replies to this message:
-None-