Timer1.Enabled = True

Private PicB(10) As PictureBox
Private Pi!
 
Private Sub Form_Load()
 
  Dim i As Integer
 
  Me.ScaleMode = vbPixels
  Me.WindowState = vbMaximized
  Pi = 4 * Atn(1)
  Randomize
  For i = 0 To UBound(PicB)
    Set PicB(i) = Me.Controls.Add("VB.PictureBox", "pic" & i)
    With PicB(i)
      .Move 0, 0, 100, 100
      .BackColor = Rnd * &HFFFFFF
      .Visible = True
    End With
  Next i
 
  Timer1.Interval = 20
  Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
  Dim i&, N&, XPos!, YPos!, Wnk!, Rad!
  Static Offs!
 
  N = UBound(PicB) + 1
  Rad = 200
  For i = 0 To UBound(PicB)
    Wnk = 2 * Pi / N * i + Offs
    XPos = Me.ScaleWidth / 2 + Rad * Cos(Wnk)
    YPos = Me.ScaleHeight / 2 - Rad * Sin(Wnk)
    PicB(i).Move XPos, YPos
  Next i
  Offs = Offs + 0.02
  If Offs >= 2 * Pi Then Offs = Offs - 2 * Pi
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
  Dim i&
 
  Timer1.Enabled = False
  ' Speicher freigeben
  For i = 0 To UBound(PicB)
    Me.Controls.Remove PicB(i)
  Next i
 
End Sub

Gruss,

Zardoz