淮南车管所电话:vb编程问题,急!急!!急!!!,狂急!!!!

我用VB编写了一个雪花飞舞的屏幕保护程序,
源代码为:
Private Sub Form_Load()
Dim snow(1000, 2), amounty As Integer
Form1.Show
DoEvents
Randomize
amounty = 1000
For j = 1 To amounty
snow(j, 0) = Int(Rnd * Form1.Width)
snow(j, 1) = Int(Rnd * Form1.Height)
snow(j, 2) = Int(Rnd * 1000)
Next j
Do While Not (DoEvents = 0)
For ls = 10 To 500
For i = 1 To amounty
oldx = snow(i, 0)
oldx = snow(i, 1)
snow(i, 1) = snow(i, 1) + snow(i, 2)
If snow(i, 1) > Form1.Height Then
snow(i, 1) = 0
snow(i, 2) = Int(Rnd * Form1.Width)
snow(i, o) = Int(Rnd * Form1.Width)
oldx = 0
oldx = 0
End If
coloury = 8 * (snow(i, 2) - 10)
coloury = 60 + coloury
PSet (oldx, oldy), QBColor(0)
PSet (snow(i, 0), snow(i, 1)), (RGB(coloury, coloury, coloury))
Next i
Next ls
Loop
End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
End Sub

结果出错,软件提示说是这段代码有问题:PSet (oldx, oldy), QBColor(0)
PSet (snow(i, 0), snow(i, 1)), (RGB(coloury, coloury, coloury))