在VC中怎么用dephi中通过VarArrayCreate定义的olevariant数组，麻烦将下面的写成VC代码！谢谢！(200分)

var
s1,s2,s3levariant;
begin
s1:=102;
s2:=VarArrayCreate([0, 5],varVariant);
s2[0]:='aa1';
s2[1]:='srtet3453';
s2[2]:='1604';
s2[3]:='李某';
s2[4]:='男';
s2[5]:='1978-09-11';
s3:=combobox1.Text;
//………………………………
end;

SAFEARRAYBOUND sab;
sab.cElements = 5;
sab.lLbound = 0;

SAFEARRAY * pSa;
pSa = SafeArrayCreate(VT_VARIANT, 5, &sab);
if (pSa == NULL)
{
//创建SafeArray失败的代码
｝
VARIANT s2;
VariantInit(&s2); //[red]必须初始化s2[/red]
V_VT(&s2) = VT_ARRAY|VT_VARIANT;
V_ARRAY(&s2) = pSa;

[blue]//s2就是你想要的东东，自己随便处理吧[/blue]

SAFEARRAYBOUND sab;
sab.cElements = 5;
sab.lLbound = 0;

SAFEARRAY * pSa;
pSa = SafeArrayCreate(VT_VARIANT, 5, &sab);
if (pSa == NULL)
{
//创建SafeArray失败的代码
｝
VARIANT s2;
VariantInit(&s2); //[red]初始化s2[/red]
V_VT(&s2) = VT_ARRAY|VT_VARIANT;
V_ARRAY(&s2) = pSa;

[blue]//s2就是你想要的东东，自己随便处理吧[/blue]

出差了，谢谢，谢谢！