VBで配列
Option Explicit Public Sub Foo(ByRef x As Variant) ReDim x(3) End Sub Private Sub Command1_Click() ReDim a(1) As String Call Foo(a) Debug.Print "a = " & UBound(a) End Sub
要は Foo に相当するものを DLL で作って、
ReDim x(0)
相当のことができればよいはず。
Option Explicit Public Sub Foo(ByRef x As Variant) ReDim x(3) End Sub Private Sub Command1_Click() ReDim a(1) As String Call Foo(a) Debug.Print "a = " & UBound(a) End Sub
要は Foo に相当するものを DLL で作って、
ReDim x(0)
相当のことができればよいはず。