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

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

Option Explicit
'
'   Идея The Trick
'   Модификация © Антихакер32™
'
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim WithEvents tmr As Timer
Dim WithEvents shp As Shape, r&
 
Private Sub Form_Load()
    Me.WindowState = 2
    r = Sqr(ScaleWidth * ScaleHeight) / 4
    Set shp = Me.Controls.Add("VB.Shape", "shp")
    With shp: .Move 0, 0, r, r: .Shape = 2: .BackStyle = 1: .BackColor = CLng("&H0000FFFF"): End With
    Set tmr = Me.Controls.Add("VB.Timer", "tmr"): tmr.Interval = 16
    Me.BackColor = &HA
    SetWindowLong hwnd, -20, GetWindowLong(hwnd, -20) Or &H80000
    SetLayeredWindowAttributes hwnd, &HA, 0, 1
End Sub
Private Sub tmr_Timer()
    Static phase As Single
    shp.Move Cos(phase) * r + ScaleWidth \ 3, Sin(phase) * r + ScaleHeight \ 3, r, r
    phase = phase + 0.1: If Not shp.Visible Then shp.Visible = 1
End Sub