VB，数组存储坐标，如何定义，请进来详看。

VB，数组存储坐标，怎么定义，请进来详看。。。
我只会定义这种单一的动态数组
Dim A()  
ReDim A(2000)


我希望是能在数组里加个X，Y的属性，例如以下红色文字部分：
for i=1 to 2000
  A(i).X = now
  A(i).Y = now
next


请问，第一步要怎么定义？？



[解决办法]

VB code

Option ExplicitPrivate Type Point    x As Long    y As LongEnd TypePrivate Sub Form_Load()    Dim intP As Integer    Dim A(2000) As Point    'x的值可以用DateDiff来转换，首先记录一个起始点，然后再计算    For intP = 0 To 1999        A(intP).x = intP        A(intP).y = Rnd * 100    Next intPEnd Sub
[解决办法]
直接定义成2维数组不就行了吗
ReDim A(1 to 2000,1 to 2)