Imports System
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Data
Imports System.Text
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        NSS_Init("C:\Program Files (x86)\Mozilla Firefox\")
 
    End Sub
End Class
 
Module firefox5
 
    <DllImport("kernel32.dll")> _
    Private Function LoadLibrary(ByVal dllFilePath As String) As IntPtr
    End Function
 
    Private NSS3 As IntPtr
 
    Public Function NSS_Init(ByVal MozillaPath As String) As Long
 
        NSS3 = LoadLibrary(MozillaPath & "nss3.dll")
 
    End Function
 
End Module