看看我的VB程序那错了

Private Sub Form_Load()
Form1.Caption = "不安份的小球"
Form1.BackColor = &HFFC0FF

End Sub

Private Sub Timer1_Timer()
Public r As String
r = 1 + Int(rud * 4)
Select Case r
Case 1
Image1.Move Image1.Top - 20, Image1.Left - 20
If Image1.Left <= 0 Then
r = 2
ElseIf Image1.Top <= 0 Then
r = 4
End If
Case 2
Image1.Move Image1.Top - 20, Image1.Left + 20
If Image1.Left >= Form1.Width - Image1.Width Then
r = 1
ElseIf Image1.Top <= 0 Then
r = 3
End If
Case 3
Image1.Move Image1.Top + 20, Image1.Left - 20
If Image1.Left > Form1.Width - Image1.Width Then
r = 4
ElseIf Image1.Top > from1.heighe - Image1.heighe Then
r = 2

看看我的VB程序那错了 大家帮我看看这个VB程序哪里错了 各位帮我看看这个vb程序,怎么错的 VB程序不知道那错了 哥没门看看我编的程序那不合理了 请帮我看看这段vb的程序 大家帮看个程序,看看那错了~~~~~~~~~~ 我的这个vb程序怎么错了？ 看看我的VB代码哪错了 谁来帮我看看这段vb程序