Двигать точку по прямой с шагом, в момент, когда луч проходит над ней - VB

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

Есть луч который описывает окружность, и есть точка которая находится в пределах этой окружности. Необходимо заставить двигаться точку по прямой с шагом, в момент когда луч проходит над ней.

Dim x,y,x0, y0, R, angle As Integer
Dim xc, yc As Double
Const pi = 3.14
 
Private Sub Form_Load()
pic.AutoRedraw = true
pic.Scale (0, 0)-(1200, 1200)
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
x = 700: y = 600 
angle = angle + 1
x = x + angle
R = 200
x0 = 600: y0 = 600
pic.DrawWidth = 5
xc = Sin(angle / 180 * pi)
yc = Cos(angle / 180 * pi)
pic.Line (x0, y0)-(x0 + xc * R, y0 - yc * R), vbRed
pic.Cls
pic.Line (x0, y0)-(x0 + xc * R, y0 - yc * R), vbRed
pic.Circle (600, 600), 200, vbWhite
pic.PSet (x, y), vbGreen

Решение задачи: «Двигать точку по прямой с шагом, в момент, когда луч проходит над ней»

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

                            Dim x, y, x0, y0, R, angle As Integer
Dim xc, yc, yc0 As Double
Const pi = 3.1415927
 
Private Sub Form_Load()
Pic.AutoRedraw = True
Pic.Scale (0, 0)-(1200, 1200)
x = 610: y = 600
Timer1.Enabled = True
Timer1.Interval = 1 '0 '0
End Sub
 
Private Sub Timer1_Timer()
angle = angle + 10
R = 200
x0 = 600: y0 = 600
Pic.DrawWidth = 5
xc = Sin(angle / 180 * pi)
yc = Cos(angle / 180 * pi)
Pic.Cls
Pic.Line (x0, y0)-(x0 + xc * R, y0 - yc * R), vbRed
Pic.Circle (600, 600), 200, vbWhite
If yc < 0 And yc0 >= 0 Then x = x + 10
Pic.PSet (x, y), vbGreen
yc0 = yc
End Sub
                        