Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)
 
Private Sub Form_Activate()
  Dim X!, Y!, Pi!, XP!(), YP!(), XR!(), YR!(), Rd!()
  Dim SML%, i%, SW%, SH%, F1 As Object, AG$, R!
 
  SML = 50 - 1
  ReDim XP(SML), YP(SML), XR(SML), YR(SML), Rd(SML)
  Pi = 4 * Atn(1)
  Randomize
  Set F1 = Me
  With F1
  .ForeColor = 0
  .AutoRedraw = True
  .ScaleMode = 3
  .FillStyle = 0
  SW = .ScaleWidth
  SH = .ScaleHeight
  AG = ""
  For i = 1 To 25
    X = Choose(i, 84, 150, 230, 2, 38, 150, 253, 54, 134, 86, _
      230, 2, 53, 7, 22, 253, 2, 214, 87, 253, 2, 55, 86, 150, 230)
    AG = AG & Chr(X \ 16 + 16 * (X And 15))
  Next i
  .Caption = AG
  For i = 0 To SML
    XP(i) = SW \ 2
    YP(i) = SH \ 2
    XR(i) = (0.3 + Rnd * 3) * IIf(Rnd < 0.5, -1, 1)
    YR(i) = (0.3 + Rnd * 3) * IIf(Rnd < 0.5, -1, 1)
  Next i
  Do
    F1.Line (0, 0)-(SW - 1, SH - 1), vbGreen, BF
    For i = 0 To SML
      X = XP(i) + XR(i)
      Y = YP(i) + YR(i)
      R = Rd(i) - 0.5
      If X < 16 Or X > SW - 1 - 16 Then XR(i) = -XR(i): R = 8
      If Y < 16 Or Y > SH - 1 - 16 Then YR(i) = -YR(i): R = 8
      .FillColor = vbYellow
      F1.Circle (X, Y), 16
      If R > 3 Then
        F1.Line (X - 7, Y + 11)-Step(16, 0)
        .FillColor = vbRed
      Else
        R = 3
        F1.Circle (X, Y + 3), 8, , Pi, 2 * Pi
        .FillColor = 0
      End If
      F1.Circle (X - 5, Y - 4), R, , , , 2
      F1.Circle (X + 5, Y - 4), R, , , , 2
      XP(i) = X
      YP(i) = Y
      Rd(i) = R
    Next i
    DoEvents
    Sleep 1
  Loop
  End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub