Проблемы с движением шарика в пределах PictureBox - VB

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

В PictureBox должен появляться circle в рэндомном месте и все время двигаться в пределах пикчер бокса, то есть он должен отталкиваться от рамок. Как сделать что бы он появлялся в рэндомном месте? Рэндомными значениями заполнять координаты Picture.Scale? Как сделать так что бы шарик отталкивался от границ?

Решение задачи: «Проблемы с движением шарика в пределах PictureBox»

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

                            dim x1,y1,a,b 'это вынести в начало формы
sub timer()
Picture1.Cls x1=x1+a y1=y1+b
'тут еще надо проверку поставить на пересечение с границой, но эт сами
Picture1.Circle (x1, y1), 500, vbRed
end sub
                        