Public Sub mnuReport_Click()
Dim aForm As New frmReport
 Static nid2 As Long
 
 aForms.Add aForm, "l" & CStr(nid2)
' fortlaufende Nummer erzeugen
    nid2 = nid2 + 1
     aForm.Caption = "Report >" & nid2 & "< Dokument " & RCaption
     Me.View1.Nodes.Add 3, tvwChild, "l " & nid2, "Dokument >" & nid2 & "< " _
       & RCaption, 25
     RCaption = Empty
      aForms.Item(nid2).Show
' ID-Wert zusätzlich in der Tag-Eigenschaft
' der Child-Form speichern
       aForm.Tag = "l " & nid2
End Sub