InitVariantFromInt32Array

Module2.bas

Private Declare PtrSafe _
Function InitVariantFromInt32Array Lib "Propsys" ( _
        ByRef prgn As Any, _
        ByVal cElems As Long, _
        ByRef pvar As Variant _
) As Long

Sub hoge()

    Dim hr&
    Dim arr&(0 To 1)
    arr(0) = 1&
    arr(1) = 2&
    
    hr = InitVariantFromInt32Array(arr(0), 2, Vnt)

    Stop

End Sub