[vb6] Kontrolowanie Kółka za pomocą scroll bara

Witam mam problem otóż w programie jeśli koło wejdzie w szczelinie ma spaść na poziom niżej?

 

Private Sub Form_Paint()
    ' Draw a solid black line 200 twips from the top of the form.
    Line (400, 600)-(ScaleWidth - 1100, 600), vbBlack
    Line (ScaleWidth - 400, 1200)-(1100, 1200), vbBlack
    Line (400, 1800)-(ScaleWidth - 1100, 1800), vbBlack
    Line (400, 2400)-(ScaleWidth - 400, 2400), vbBlack
    
    Line (400, 0)-(400, 2400), vbBlack
    Line (ScaleWidth - 400, 0)-(ScaleWidth - 400, 2400), vbBlack
End Sub

Private Sub scroll_Change()

Dim x As Integer
Static y As Integer
Static x1 As Integer
Static y1 As Integer
Dim wynik As Integer
Static ilosc As Integer

x = scroll.Value
y = 299 + (600 * ilosc)

wynik = 0
ilosc = 0
Circle (x1, y1), 280, vbWhite
Circle (x, y), 280, vbRed
x1 = x
y1 = y

If wynik = 0 And x > (ScaleWidth - 1200) Then
    ilosc = ilosc + 1
    wynik = wynik + 1
    
End If

If wynik = 1 And x < 700 Then
    ilosc = ilosc + 1
    wynik = wynik + 1

End If

End Sub