' Funktion: Erstellt die Dokumentstruktur und füllt sie mit Werten für ein 
    ' neues Dokument
    Public Function DocNewStructure(ByVal TemplateDirectory As String, Optional _
      ByVal DocumentPath As String = "") As Document
 
        ' Dokumentenarray erweitern
        If Documents Is Nothing Then ReDim Documents(0) Else ReDim Preserve _
          Documents(Documents.Length)
 
        ' Documentvariable mit Werten füllen
        With Documents(Documents.Length - 1)
            ' Neue WebBrowser-Instanz
            .WebBrowser = New AxSHDocVw.AxWebBrowser
            ' Vorlagendateipfad speichern
            .TemplateDirectory = TemplateDirectory
            ' Dokumentpfad speichern
            .SavePath = DocumentPath
            ' Tabpageindex festlegen und Tabpage erstellen
            .TabIndex = FrmMain.TabHost.TabPages.Add(New _
              NETXP.Controls.Docking.TabPage("Neue Zeugnisgruppe"))
 
            ' DocumentObjekt festlegen
            FrmMain.TabHost.TabPages(.TabIndex).Controls.Add(.WebBrowser)
            .WebBrowser.Navigate(Application.StartupPath & "\new\document.htm")
            Do
                Application.DoEvents()
                If .WebBrowser.LocationURL <> "" Then Exit Do
            Loop
            .DOM = .WebBrowser.Document.Frames("iframe").Document
 
            ' Input-Objekte der Formsarray hinzufügen
            Dim MyInput As mshtml.HTMLInputElementClass
            Dim MySelect As mshtml.HTMLSelectElementClass
            ' Alle Text-Elemente durchgehen
            For i As Integer = 0 To .DOM.all.tags("input").Length - 1
                MyInput = .DOM.all.tags("input").Item(i)
                ' Inputs-Array erweitern
                If .Inputs Is Nothing Then ReDim .Inputs(0) Else ReDim Preserve _
                  .Inputs(.Inputs.Length)
                ' Namen in Inputs-Array speichern
                .Inputs(.Inputs.Length - 1).Name = MyInput.name
                ' Typ in Inputs-Array speichern
                .Inputs(.Inputs.Length - 1).Typ = HTMLTyp.TextElement
                ' OnChange-Handler hinzufügen
                AddHandler _
                  MyInput.HTMLInputTextElementEvents2_Event_onpropertychange, _
                  AddressOf Input_Change
            Next
            ' Alle Select-Elemente durchgehen
            For i As Integer = 0 To .DOM.all.tags("select").Length - 1
                MySelect = .DOM.all.tags("select").Item(i)
                ' Inputs-Array erweitern
                If .Inputs Is Nothing Then ReDim .Inputs(0) Else ReDim Preserve _
                  .Inputs(.Inputs.Length)
                ' Namen in Inputs-Array speichern
                .Inputs(.Inputs.Length - 1).Name = MySelect.name
                ' Typ in Inputs-Array speichern
                .Inputs(.Inputs.Length - 1).Typ = HTMLTyp.SelectElement
                ' OnChange-Handler hinzufügen
                AddHandler _
                  MyInput.HTMLInputTextElementEvents2_Event_onpropertychange, _
                  AddressOf Input_Change
            Next
 
            ' Rückgabewert
            Return Documents(Documents.Length - 1)
        End With
    End Function

Meine Homepage: www.dartrax.de