Imports System.Runtime.InteropServices
 
<DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Public Function LoadLibrary(<[In](), MarshalAs(UnmanagedType.LPTStr)> _
    ByVal lpFileName As String) As IntPtr
    End Function
 
Public Sub CallSampleDll()
   Const SampleDLLPath = "C:\Programme\Winamp\Plugins\out_disk.dll"
   Dim lastError As Integer = 0
   Dim hModule As IntPtr = IntPtr.Zero
 
   hModule = LoadLibrary(SampleDLLPath)
   lastError = Marshal.GetLastWin32Error()
   If lastError = 0 Then
      'Dim procAddress = GetProcAddress(hModule, "winampGetOutModule")
      '...
   Else
      Debug.Print("Bibliothek '{0}' nicht gefunden: {1}", SampleDLLPath, _
        lastError)
   End If
End Sub