Приемы анимации - VB (60890)

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

Создать проект, движения шарика по диагонали, от нижнего левого угла до правого верхнего угла (без объекта Timer). Выручите плиз!!!

Решение задачи: «Приемы анимации»

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

                            Private Sub Form_Load()
    Dim Z As Single, X As Single, Y As Single
    Me.ScaleMode = vbPixels
    Me.AutoRedraw = True
    Me.Show
    Y = Me.ScaleHeight
    Do While X < Me.ScaleWidth And Y > 0
        Z = Timer
        Do While Timer < Z + 0.1
        Loop
        X = X + 3
        Y = Y - 3
        Me.Cls
        Me.Circle (X, Y), 10
        Me.Refresh
        DoEvents
    Loop
End Sub
                        