Private Function WebbrowserInitialisieren() As Boolean
        If startParameter = "" Then
            Try
                If Not IO.Directory.Exists(BrowserCacheDefaultPfad) Then _
                  IO.Directory.CreateDirectory(BrowserCacheDefaultPfad)
                Dim settings As New CefSharp.WinForms.CefSettings()
                'settings.RemoteDebuggingPort = 8088
                Dim LocalesDirPath As String = IO.Path.Combine( _
                  Environment.CurrentDirectory, "locales")
 
                settings.LocalesDirPath = LocalesDirPath
 
                settings.Locale = "de"
                settings.AcceptLanguageList = "de,de-DE"
 
                settings.PersistSessionCookies = True
                settings.CachePath = BrowserCacheDefaultPfad
 
                'Webbrowser_bookmarkseinlesen()
 
                Return CefSharp.Cef.Initialize(settings, True)
            Catch ex As Exception
                Dim form_exclamation As New Fehler_Fenster
                form_exclamation.Initialisiere(False, "Fehler!", "Im Modul:" & _
                  "'WebbrowserInitialisieren'" & vbCrLf & vbCrLf & "Haben Sie" & _
                  "das erforderliche MS-Paket 'Visual C++ Redistributable'" & _
                  "installiert?" & vbCrLf & vbCrLf & "Grund: " & ex.Message, _
                  MessageBoxButtons.OK, 4,, False)
                Return False
            End Try
        Else
            Return True
        End If
    End Function