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 = loc_assembly.GetType( _
                          loc_assembly.GetName.Name & ".LSA")
                        For Each funktionen In typ.GetMethods
                            Dim name As String = funktionen.Name
                            MessageBox.Show(name)
                        Next
 
                        Dim loc_obj = Activator.CreateInstance(typ)
  Dim para As String = loc_obj.ToString & "." & loc_obj.GetType.GetMethod( _
    "get_Geburtsdatum_formfield").Name
 
                        QP.SetFormFieldValueByTitle(para, "01.06.1980")
 
                        Dim TotalFormFields As Integer = QP.FormFieldCount
                        While (TotalFormFields > 0)
                            TotalFormFields = TotalFormFields - 1
                        End While
 
                        QP.SaveToFile("C:\Users\tom\Documents\ausgabe.pdf")
                    End If
                End If
            Next
        End If