VB 缺少数组怎么办啊！帮帮忙我是新手

Private Type snow
x As Integer
y As Integer
size As Integer

End Type

Private Sub Form_Activate()
Dim i As Integer

Picture1.Visible = False
Picture2.Visible = False

Randomize
For i = 0 To num
s(i).x = Rnd() * 640
s(i).y = Rnd() * 480 - 480
s(i).size = Rnd() * 5 + 5
Next i

End Sub

Private Sub Timer1_Timer()
Dim i As Integer

Form1.Cls

For i = 0 To num
Form1.PaintPicture Picture2, s(i).x, s(i).y_
s(i).size , s(i).size, 0, 0, 50, 50, vbSrcAnd

s(i).x = s(i).x + wind * 10 / s(i).size
'===============================
s(i).y = s(i).y + s(i).size * 0.5
'==========================
If s(i).y > 480 Then
s(i).x = Rnd() * 640
s(i).y = Rnd() * 480 - 480
End If

我是新手，请大家帮帮忙？关于VB VB的数组问题~高手帮帮忙啊~~ javascript显示缺少对象问题，帮帮忙各位大侠，我是新手。 VB中连接SQL.来帮帮忙吧,我是新手 我是VB编程新手 我是新手想学习VB 梦幻西游，我是新手！！帮帮忙啊！！！ 帮帮忙我是个新手!! 我是新手请帮帮忙 我是新手，帮帮忙