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

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

Создать проект, движение шарика вертикально в центре формы от нижнего края до верхнего.

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

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

                            Option Explicit
Dim WithEvents Tmr As Timer
Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = vbPixels
    Me.FillStyle = vbSolid
    Set Tmr = Me.Controls.Add("VB.Timer", "Tmr")
    Tmr.Interval = 40
    Tmr.Enabled = True
End Sub
Private Sub Tmr_Timer()
    Static P As Single
    Me.Cls
    Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight - Abs(Sin(P)) * (Me.ScaleHeight - 40) - 20), 20
    P = P + 0.05
End Sub
                        