Public Structure RegelStruktur
        Public iID As UInt32
        Public icommand As UInt32
        Public iValue As UInt32
        Public ibyteArr As Char()
    End Structure
 
 
 
    Dim Antwort As Array
    Dim Regel As New Regel7
 
    Public Declare Sub dllSetCallback Lib "Regel.dll" Alias "setCallback" ( _
      ByVal Regeldel As CommandReply)
    Delegate Sub CommandReply(ByVal RegelIntPtr As IntPtr)
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Regel.Init()
        dllSetCallback(AddressOf GetCallback)
    End Sub
 
    ''' <summary>
    ''' Funktion die von der DLL Aufgerufen werden soll
    ''' </summary>
    ''' <param name="RegelIntPtr">Zeiger auf das Struct, dass die 
    ' Rückgabewerte enthält</param>
    ''' <remarks></remarks>
    Sub GetCallback(ByVal RegelIntPtr As IntPtr)
 
        'RegelIntPtr = Marshal.AllocHGlobal(1024)
        Dim A As RegelStruktur
        ReDim A.ibyteArr(15)
        Marshal.PtrToStructure(RegelIntPtr, A)
 
    End Sub