VB 怎么给数组添加项

Private Function GetRndDKey() As dk()
Dim ret() As dk
ReDim ret(5)
For i = 1 To 5
Randomize
ret(i) = dkey(Fix(Rnd * UBound(dkey) + 1))
Next
GetRndDKey = ret
End Function
我下面的写法哪里错了?

Private Function GetRndDKey() As dk() '随机取出3行D
Dim ret() As dk
ReDim ret(6)
For i = 1 To 5
Randomize
ret(i) = dkey(Fix(Rnd * UBound(dkey) + 1))
Next
ret(6) = newone
GetRndDKey = ret
End Function

Private Type dk
dkey As String
skey As String
End Type

Private Function GetRndDKey() As dk() '随机取出3行D
Dim ret() As dk 定义ret数组
ReDim ret(6)
For i = 1 To 5
Randomize
ret(i) = dkey(Fix(Rnd * UBound(dkey) + 1)) 数组dkey从哪儿来？
Next
ret(6) = newone newone是什么
GetRndDKey = ret
End Function

这里面的dk什么意思？

开始创建一个控件，index属性设为0，以后添加的话可以这样。以textbox为例： load text1(1) with text1(1) .top=100 .left=100 ... .visible=true end with