Public Shared Function acrobat_vorhanden() As Boolean
        Const erweiterung As String = ".pdf"
        Dim reg As RegistryKey = Registry.ClassesRoot.OpenSubKey(erweiterung)
        If reg Is Nothing Then
            Return False
        Else
            Return True
        End If
    End Function