Dim dir As System.IO.DirectoryInfo = New System.IO.DirectoryInfo( _
  Application.StartupPath)
 
        QP = New PDFLibrary
        'lizenzkey zum unlock käme hier
        Dim result As Boolean = CBool(QP.UnlockKey(LicenseKey))
        If result = True Then
 
            Dim pdf_vorlage As String = "D:\Formular.pdf"
 
            QP.LoadFromFile(pdf_vorlage, String.Empty)
 
 
 
            For Each datei In dir.GetFiles
                If datei.Extension = ".dll" Then
                    loc_assembly = Assembly.LoadFile(datei.FullName)
                    If loc_assembly.GetName.Name = "LSA_PDF" Then
                        Dim anzeige As String = datei.Name.ToString & Space(5) _
                          & loc_assembly.GetName.Version.ToString
 
                        Dim typ As System.Type = loc_assembly.GetType( _
                          loc_assembly.GetName.Name & ".LSA")
                        For Each funktionen As System.Reflection.MethodInfo In _
                        typ.GetMethods
                            Dim name As String = funktionen.Name
                            '  MessageBox.Show(name)
                        Next
 
                        'Effektfreier Code über dynamisch-gebundene DLL
                        Dim loc_obj As Object = Activator.CreateInstance(typ)
                        Dim para1 As String = loc_obj.GetType.GetMethod( _
                          "get_Geburtsdatum_formfield").Name
                        QP.SetFormFieldValueByTitle(para1, "01.06.1990")
 
                        'Code mit der verweisten DLL
                        QP.SetFormFieldValueByTitle( _
                          LSA_PDF.LSA.get_Personalnummer_formfield, "012345")
 
                        Dim TotalFormFields As Integer = QP.FormFieldCount
                        While (TotalFormFields > 0)
                            TotalFormFields = TotalFormFields - 1
                        End While
 
                        Dim myfile As String = _
                          "C:\Users\tom\Documents\ausgabe.pdf"
                        QP.SaveToFile(myfile)
                        Process.Start(myfile)
                    End If
                End If
            Next
        End If