FreeLibrary (Kernel32)

Usage

    <DllImport("kernel32.dll", SetLastError:=True, EntryPoint:="FreeLibrary")>
    Public Shared Function FreeLibrary(ByVal hModule As IntPtr) As Boolean
    End Function

        Dim hAddress As IntPtr = GetModuleHandle("dll")
        FreeLibrary(hAddress)