Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)
 
Private Sub Form_Activate()
  Dim i%, K#, Pi!, Wnk!, Rad1%, Rad2%, XPos!, YPos!, X$, Y$
  Randomize
  With Me
  .WindowState = 2
  .BackColor = RGB(128, 128, 255)
  .ScaleMode = 3
  .AutoRedraw = True
  .FillStyle = 0
  .FillColor = vbRed
  X = "1D1405050C75171C07011D11140C75111C1001100774"
  For i = 1 To Len(X) Step 2: Y = Y & Chr(85 Xor ("&H" & Mid(X, i, 2))): Next i
  .FontBold = True
  .Caption = Space((.ScaleWidth - .TextWidth(Y)) / .TextWidth("  ")) & Y
  .FontSize = 24
  For i = 0 To 30
    .ForeColor = IIf(i < 30, RGB(0, 0, 255 / 29 * i), vbMagenta)
    .CurrentX = i + (.ScaleWidth - .TextWidth(Y)) \ 2
    .CurrentY = i + (.ScaleHeight - .TextHeight(Y)) \ 2
    Me.Print Y
  Next i
  Pi = 4 * Atn(1)
  K = 31
  Rad1 = .ScaleWidth \ 2 - 50
  Rad2 = .ScaleHeight \ 2 - 100
  For i = 0 To K - 1
    Wnk = 2 * Pi / K * i
    XPos = .ScaleWidth \ 2 + Rad1 * Sin(Wnk)
    YPos = .ScaleHeight \ 2 + Rad2 * Cos(Wnk) + 15 + 4
    Me.Line (XPos - 8, YPos)-Step(16, 60), 0, B
    Me.Line (XPos, YPos)-Step(0, -6), 0
  Next i
  Set .Picture = .Image
  .FillColor = vbYellow
  Do
    .Cls
    For i = 0 To K - 1
      Wnk = 2 * Pi / K * i
      XPos = .ScaleWidth \ 2 + Rad1 * Sin(Wnk)
      YPos = .ScaleHeight \ 2 + Rad2 * Cos(Wnk)
      Me.Circle (XPos, YPos), 15 - Rnd * 3, vbRed, , , 2 + Rnd
    Next i
    Call Sleep(50)
    DoEvents
  Loop
  End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub