Private Sub LoadNewDoc()
    lDocumentCount = lDocumentCount + 1
    Dim frmD As frmDocument
    Set frmD = New frmDocument
    frmD.Caption = "Dokument " & lDocumentCount
    frmD.pathname = "Dokument " & lDocumentCount
    frmD.path = ""
    frmD.TextRTF = frmD.rtfText.TextRTF
    frmD.Show
    frmD.kennnung = lDocumentCount
    docname = "Tiebra 6.0 - " & frmD.pathname
    Me.Caption = docname
    'If lDocumentCount > 1 Then
        'Load dokoment(lDocumentCount - 1)
    'End If
    'dokoment(lDocumentCount - 1).Caption = docname
    posaktuell
    With MenuBar1.MenuItems
        .Add ActiveForm.Caption, "Dok" & lDocumentCount, oMenu2
    End With
 
End Sub

Dim Form as frmDocument
For Each Form in Forms
	Msgbox Form.Caption
Next