Движение объекта и реакция его на препятствие - VB

Формулировка задачи:

Люди, помогите запрограммировать данный exe-шник (дело срочное). У меня получилось запрограммировать движение объекта и генерацию препятствий, но не получается сделать так, чтобы во-первых это работало одновременно и во-вторых объект реагировал на возникающее препятствие...Help! Вот сделанный мной код, а ниже в архиве exe-шник того, что должно получится а также начатый мною проект

Option Explicit
 
Dim i As Long
Dim a As Integer 'для прямоугольника
Dim c As Integer
Dim b As Integer
Dim d As Integer
Dim n As Integer 'количество шагов
Dim k As Integer
Dim x As Integer 'координаты центра окружности
Dim y As Integer
Dim x0 As Integer
Dim y0 As Integer
Dim x1 As Integer
Dim y1 As Integer
Dim dx As Integer 'приращение
Dim dy As Integer
Dim dx1 As Integer
Dim dy1 As Integer

Private Sub Check1_Click()
 
If Check1.Value = 1 Then
Randomize (5000)
a = 500 + Int(Rnd * 5501)
c = 500 + Int(Rnd * 5501)
b = 500 + Int(Rnd * 6001)
d = 500 + Int(Rnd * 6001)
Picture1.Line (a, b)-(c, d), vbWhite, B
 
End If
If Check1.Value = 0 Then
Picture1.Line (a, b)-(c, d), vbBlack, B
End If
End Sub

Private Sub Picture1_Click()
Picture1.DrawWidth = 1
  x = 4508 'начальные координаты
  y = 3368
  x1 = 3308
  y1 = 2168
  n = 1
  dx = 150
  dy = 150
  dx1 = 150
  dy1 = 150
  
  While (n < 100)
      
   If x < 350 Or x > 8666 Then dx = -dx 'условие отражения от стены
   If y < 350 Or y > 6386 Then dy = -dy
   If x1 < 350 Or x1 > 8666 Then dx1 = -dx1
   If y1 < 350 Or y1 > 6386 Then dy1 = -dy1
   
   Picture1.Circle (x, y), 200, vbRed
   Picture1.Circle (x1, y1), 200
   Picture1.Circle (x, y), 200, vbRed
   For i = 1 To 1000000: Next i
   x = x + dx
   y = y + dy
   x1 = x1 + dx1
   y1 = y1 + dy1
   n = n + 1
   Wend
 
End Sub

Решение задачи: «Движение объекта и реакция его на препятствие»

textual
                            Листинг программы 
                        
                             Л = 350