求救 rational robot 高手

tgs2008

rational robot 我刚入门,我遇到这么一个问题请教各位大侠:
我写了这么一段程序:
      dim values() as variant,rows as integer
      result=ddggetguiobjectdata("type=listbox;objectindex=1",values)
      if result=-1 then exit sub
      msgbox str(result)
      rows=ubound(values)-lbound(values)
    得到 result 为16，但是当运行到rows=ubound(values)-lbound(values)时出现    error 9 ,out of range的错误。
   
      请问是什么原因导致以上错误
      
      怎样才能获得其它应用程序的数据呢，对系统因该怎样配置呢？

bibyu

dim values() as variant
没有定义数组的长度啊

如果变成dim values(3) as variant
就可以了