Private loc_assembly As Assembly
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Dim dir As System.IO.DirectoryInfo = New System.IO.DirectoryInfo( _
          Application.StartupPath)
 
 
        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   'wäre die DLL 
                ' für Sachsen-Anhalt
                    Dim anzeige As String = datei.Name.ToString & Space(5) & _
                      loc_assembly.GetName.Version.ToString
                    MessageBox.Show(anzeige)
                End If
            End If
        Next
End Sub

QP.SetFormFieldValueByTitle(mylsa.get_Geburtsdatum_formfield, "14.06.1970")