'Die API
    Private Declare Auto Function LoadLibrary Lib "kernel32" _
      (ByVal LibFilePath As String) As System.IntPtr
 
 
   'Der Code zum Laden der benötigten Bibliotheken
   Dim path As String = "C:\Program Files (x86)\Mozilla Firefox\"
 
   Dim dllpath1 As String = IO.Path.Combine(path, "msvcr120.dll")
   Dim VCR As System.IntPtr = LoadLibrary(dllpath1)
 
   Dim dllpath2 As String = IO.Path.Combine(path, "msvcp120.dll")
   Dim VCP As System.IntPtr = LoadLibrary(dllpath2)
 
   Dim dllpath3 As String = IO.Path.Combine(path, "mozglue.dll")
   Dim Glue As System.IntPtr = LoadLibrary(dllpath3)
 
   Dim dllpath4 As String = IO.Path.Combine(path, "nss3.dll")
   Dim NSS3 As System.IntPtr = LoadLibrary(dllpath4)