Listview只有两列数据，怎么将其存入二维数组

Listview只有两列数据，如何将其存入二维数组。
如题，具体那两个循环的代码是怎样的？谢谢
------解决方案--------------------
代码有错
dim a() as string
redim a(lv.listitems.count-1,1)'Lv列表控件名称

for i=1 to lv.listitems.count
  a(i-1,0)=lv.listitems(i).text
  a(i-1,1)=lv.listitems(i).subitems(1)
next