Cần giúp đỡ về game đỡ bóng trong VB

E mới bắt đầu học VB,sắp kiểm tra giáo viên yêu cầu về làm game đỡ bóng với cách chơi như sau:
*bóng sẽ tự chạy trên màn hình,khi đụng vào phía bên trái,phải,trên thì tự động dội ngược lại,còn khi đụng đáy là game over.Dùng chuột có icon là 1 thanh ngang nhỏ để đỡ bóng,sao cho khi đụng vào sẽ dội ngược lại.

Em mới biết code để bóng tự di chuyển àh,hix.chưa làm đc gì.Ai làm ơn giúp em vơi

ai giúp em với...............................

Dim l As Integer
Dim t As Integer

Private Sub Timer1_Timer()
If Shatraibanh.Left + Shatraibanh.Width >= Form1.Width Then
l = 1
ElseIf Shatraibanh.Left = 0 Then
l = 1
End If
If Shatraibanh.Top + Shatraibanh.Height >= Form1.Height Then
t = 1
ElseIf Shatraibanh.Top = 5 Then
t = 0
End If
If l = 0 Then
Shatraibanh.Left = Shatraibanh.Left + 100
Else
Shatraibanh.Left = Shatraibanh.Left - 100
End If
If t = 0 Then
Shatraibanh.Top = Shatraibanh.Top + 100
Else
Shatraibanh.Top = Shatraibanh.Top - 100
End If
End Sub

em mới làm đc tới đây thôi,ai xem giúp em

uppppppppppppppppppppppppppppppppp