Анимация: движение шарика по окружности - VB

Option Explicit
 
Dim WithEvents tmr As Timer
 
Private Sub Form_Load()
    Set tmr = Me.Controls.Add("VB.Timer", "tmr")
    tmr.Interval = 32: AutoRedraw = True
End Sub
Private Sub tmr_Timer()
    Static phase As Single, d As Single
    d = IIf(ScaleWidth > ScaleHeight, ScaleHeight \ 3, ScaleWidth \ 3)
    Me.Cls: Circle (Cos(phase) * d + ScaleWidth \ 2, Sin(phase) * d + ScaleHeight \ 2), d \ 2
    phase = phase + 0.1
End Sub