这个vb程序哪错了 好心人给说下

Dim BallX As Integer
Dim BallY As Integer
Dim AddX As Integer
Dim AddY As Integer
Dim HitX As Integer
Dim W As Integer
Dim H As Integer
Private Sub Command1_Click()
BallX = Int(Rnd(1) * Form1?ScaleWidth / 10) * 5 + 25
BallY = Int((Form1?ScaleHeight) / 10) * 5
AddX = -5
AddY = -5
Form_Paint
Timer1?Enabled = True
End Sub
Private Sub Command2_Click()
End
End Sub
X = X - 50
If X & lt15 Then X = 15
If X & gtW - 105 Then X = W - 105
HitX = X
IfTimer1?Enabled = TrueThen
Line (16, H - 5)-(W - 6, H), &HC0C0C0, BF
Line (HitX, H)-(HitX + 100, H - 5), 0, BF
End If
End Sub
Cls
W = Int((ScaleWidth - 140) / 5) * 5
H = Int((ScaleHeight - 10) / 5) * 5
BackColor = &HC0C0C0
Line (10, 10)-(15, H), 0, BF
Line (W - 5, 10)-(W, H), 0, BF
Line (10, 10)-(W, 15), 0, BF
End Sub
Form1.Circle (BallX,

这个vb的程序哪里错了？说对的给10分 谁知道这个VB程序哪错了 这个vb程序哪错了 这个Vb程序为什么错了?? 这个VB小程序错在哪? 我的这个vb程序怎么错了？ 大家帮我看看这个VB程序哪里错了 帮忙用VB写一下这个简单程序，说谢了 这个VB程序哪里出错了 这个vb程序哪里出现了错误？