vb6二维数组

程序起初无法获取二维数组每一维的上限，所以只能这样定义dim pro（）   
之后重新定义redim pro（1,1），但在运行过程中想要像下述方式进行扩展不知是否可行？
x = UBound(pro, 1)
y = UBound(pro, 2)
ReDim Preserve pro((UBound(arr1) + x - 2), (y + 1))
仿用的一维数组的，为什么不行，求解释！