Как из DLL на Delphi получить значения

Imports System
Imports System.Text
Imports System.Runtime.InteropServices
 
Public Class NativeDelphi
 
    Public Structure PImageSet
        Dim Size As Int16
        Dim FFile() As Char ' пробовал всякое
    End Structure
 
    Public Structure MsgSet
        Dim Size As Int16
        Dim Foto() As Char ' пробовал всякое
    End Structure
 
    <DllImport("NativeDll.dll", EntryPoint:="GetImage", _
        CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function GetImage(ByRef Results As PImageSet) As Integer
    End Function
 
    ' и пробовал так
 
    <DllImport("NativeDll.dll", EntryPoint:="GetMessage", CharSet:=CharSet.Auto)> _
    Public Shared Function GetMessage(<MarshalAs(UnmanagedType.LPStr)> ByRef Result As MsgSet)
    End Function
 
End Class

' можно попробовать byte[], но скорее всего не прокатит
Private Delegate Sub FWRiteCallback(pData As IntPtr, size As Integer)
 
Private Delegate Sub EnumAccountsCallback(<[In]> ByRef info As TAccountInfo)
 
<DllImport("...")> _
Private Shared Function GetAccountImage(account As Integer, callback As FWRiteCallback) As Boolean
End Function
 
<DllImport("...")> _
Private Shared Function GetAllAccounts(callback As EnumAccountsCallback) As Boolean
End Function

' Возврат всех счетов
    <DllImport(CscLinkLib, CharSet:=CharSet.Ansi, EntryPoint:="GetAllAccounts")> _
    Private Shared Function p_GetAllAccounts(ByVal callback As EnumAccountsCallback) As Boolean
    End Function
 
    ' Процедура обратного вызова для перечисления счетов
    Public Delegate Sub EnumAccountsCallback(<[In]()> ByRef info As TAccountInfo)
 
    ' Вызывалка
    Dim Info As EnumAccountsCallback
            If p_GetAllAccounts(Info) Then
                CscLink.LastMsg = "The request GetAllAccounts is successful"
                Return True
            Else
                CscLink.LastMsg = p_GetErrorText().ToString
                Return False
            End If

Dim callback As New EnumAccountsCallback(AddressOf EnumAccounts)

Dim KeepAccounts As New TAccountInfo
        Dim callback As EnumAccountsCallback = EnumAccounts(KeepAccounts)

Dim callback As New EnumAccountsCallback(AddressOf CscLink.EnumAccounts)
            p_GetAllAccounts(callback)

    ' Этот метод будет вызван из CscLink.dll
    Private Shared Sub EnumAccounts(<[In]()> ByRef info As TAccountInfo)
    End Sub

    <ComVisibleAttribute(True)> _
    Const CscLinkLib = "csclink.dll"
 
    Private Shared m_AccountInfo(0) As TAccountInfo
 
    ' Функция внешней библиотеки - Возврат всех счетов
    <DllImport(CscLinkLib, CharSet:=CharSet.Ansi, EntryPoint:="GetAllAccounts")> _
    Private Shared Function p_GetAllAccounts(ByVal callback As EnumAccountsCallback) As Boolean
    End Function
 
    ' Процедура обратного вызова для перечисления счетов
    Private Delegate Sub EnumAccountsCallback(<[In]()> ByRef info As TAccountInfo)
 
    ' Этот метод будет вызван из CscLinkLib
    Private Shared Sub EnumAccounts(<[In]()> ByRef info As TAccountInfo)
        Dim x As Integer = UBound(m_AccountInfo)
        ReDim Preserve m_AccountInfo(x + 1)
        m_AccountInfo(x) = info
    End Sub
 
    ' === ВОЗВРАТ ВСЕХ СЧЕТОВ ===
    Public Shared Function GetAllAccounts(ByRef AllAccounts As Array) As Boolean
        Try
            ReDim m_AccountInfo(0)
            Dim callback As New EnumAccountsCallback(AddressOf EnumAccounts)
            If p_GetAllAccounts(callback) Then
                CscLink.LastMsg = "The request GetAllAccounts is successful"
                AllAccounts = m_AccountInfo
                Return (True)
            Else
                CscLink.LastMsg = p_GetErrorText().ToString
                Return False
            End If
        Catch ex As Exception
            CscLink.LastMsg = ex.ToString
            Return False
        End Try
    End Function

    Private Shared m_AccountInfo As List(Of TAccountInfo)
 
    ' Этот метод будет вызван из CscLink.dll
    Private Shared Sub EnumAccounts(<[In]()> ByRef info As TAccountInfo)
        m_AccountInfo.Add(info)
    End Sub

    ' Процедура обратного вызова для перечисления папок (отделов)
    Private Delegate Sub EnumFoldersCallback(<[In]()> ByRef Id As Integer, ByRef ParentId As Integer, ByRef Deleted As Boolean, ByVal Name As String)
    ' Id указывал как Integer поскольку ParentId объявлен как Integer а то, что он ссылается на Id нет сомнений
 
    Private Shared Sub EnumFolders(<[In]()> ByRef Id As Integer, ByRef ParentId As Integer, ByRef Deleted As Boolean, ByVal Name As String)
        ' здесь я занимаюсь обработкой в которой Id и Deleted обозначивают себя как "Невозможно вычислить значение"
    End Sub