Public Interface iMyInterface
   Sub SetDllHandle(byval dllHandle as IntPtr)
End Interface
 
Public Class myClass
   Implements iMyInterface
 
   Private Shared myDllHandle As IntPtr ' Handle zur aufrufenden DLL
 
   Public Function SetDllHandle(byval dllHandle as IntPtr)
      myDllHandle = dllHandle ' das Handle zur aufrufenden DLL merken
   End Function
 
   ' Gibt mir das Handle zur Funktion in der anderen DLL
   <DllImport("kernel32.dll", CharSet:=CharSet.Ansi, exactspelling:=True)> _
   Public Shared Function GetProcAddress(ByVal hModule As IntPtr, _
                                         ByVal procName As String) As IntPtr
   End Function
 
   Private Delegate Sub Del_Call() 'DelegateForFunctionPointer
 
   Private Sub AufrufStarten()
      Dim ptr As IntPtr = GetProcAddress(myDllHandle, "FremdeFunktion")
      Dim del As Del_Call = _
         CType(Marshal.GetDelegateForFunctionPointer(ptr, GetType(Del_Call)), _
               Del_Call)
      del() ' <== Das ist der Aufruf, hier erstmal ohne Parameter
   End Sub
End Class

Public Sub myFunction(byref myStructure as ????)
End Sub