Не получается разобраться - 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

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

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

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

Sub

Оцени полезность:

6 голосов , оценка 3.667 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы