如何动态改变VB2005的drawlines（pens，pointf）的pointf数组的长度？

[notstop]

因为程序中每秒要画几千条连续的线条，且需要动态改变要画线条的数量。有drawlines（）和drawline（），因为drawlines效率比drawlin的高，所以打算用drawlines（pen，pointf），但是如何动态地改变pointf的长度？高手指点下。
谢谢！

[notstop]

虽然用drawline（）我可以动态控制画多少根线，但因为发现drawline的CPU占用比drawlines大了40%左右，所以考虑采用drawlines

[notstop]

下面是我的其中一段代码，只能设定固定的TestPointF长度，这里的长度是TestPointF(100)，不知道如何动态改变这个长度？
望大虾指点！
Dim GPic As Graphics
Dim TestPointF(100) As PointF
Dim i As Integer
For i = 0 To 100
TestPointF(i).X = i
TestPointF(i).Y = Rnd() * 200
Next
GPic.Dispose()

[notstop]

下面是我的其中一段代码，只能设定固定的TestPointF长度，这里的长度是TestPointF(100)，不知道如何动态改变这个长度？
望大虾指点！
Dim GPic As Graphics
Dim TestPointF(100) As PointF
Dim i As Integer
For i = 0 To 100
TestPointF(i).X = i
TestPointF(i).Y = Rnd() * 200
Next
GPic.Dispose()

[yanlongwuhui]

redim preserve TestPointF(你需要的值)

[notstop]

TestPointF不是不可以REDIM吗？

[yanlongwuhui]

Dim GPic As Graphics
Dim TestPointF(100) As PointF
Dim i As Integer
For i = 0 To 100
TestPointF(i).X = i
TestPointF(i).Y = Rnd() * 200
Next
'重新定义大小,并重新赋值
ReDim Preserve TestPointF(150)
For i = 0 To 150
TestPointF(i).X = i
TestPointF(i).Y = Rnd() * 200
Next
' 只对新增的进行赋值
For i = 101 To 150
TestPointF(i).X = i
TestPointF(i).Y = Rnd() * 200
Next

[akenny0423]

redim preserve TestPointF(你计算得到的值)