Не получается разобраться - VB

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

Здравствуйте нужна помощ. Вот код

Dim x As Double
Private Sub Image1_Click()
                x = Image1.left
m1:         x = x + 0.01
                Image1.left = x
               If x < 7000 Then GoTo m1
End Sub

Тут картинка передвигается в право и останвливается как мне сделать из этого свою продцедуру наподобие как в паскале тоесть я ей задам имя "move"

Private Sub Image1_Click()
"move"
End Sub

Мне надо чтоб первый код работал примерно как книзу Облазил весь иннет но так и немогу понять. В паскале и на си знаю как сделать чтото похожее а тут не могу. Заранее спасибо.

Решение задачи: «Не получается разобраться»

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