如何将C#字符串数组封送到VB6数组？

using System;
using System.Runtime.InteropServices;

namespace CSharpToVB6
{
    public class VB6Interop
    {
        [DllImport("CSharpToVB6.dll", CallingConvention = CallingConvention.StdCall)]
        public static extern void PassArrayToVB6([MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.LPWStr)] string[] array, int arraySize);
    }
}

Option Explicit

Private Declare Sub PassArrayToVB6 Lib "CSharpToVB6.dll" (ByRef array() As Long, ByVal arraySize As Long)

Public Sub Main()
    Dim array(3) As String
    array(0) = "Hello"
    array(1) = "World"
    array(2) = "C#"
    array(3) = "VB6"

    PassArrayToVB6 array, 4
End Sub

using System;

namespace CSharpToVB6
{
    class Program
    {
        static void Main(string[] args)
        {
            string[] array = new string[] { "Hello", "World", "C#", "VB6" };
            VB6Interop.PassArrayToVB6(array, array.Length);
        }
    }
}