Private Sub Form_Activate()
 
Dim SW%, SH%, XM%, YM%, Pi#, AR#
Dim PosRad%, KreisRad%, i%
Dim XPos%, YPos%, Wnk!
 
Pi = 4 * Atn(1)
AR = Pi / 180
PosRad = 60
KreisRad = 95
With Me
  .WindowState = vbMaximized
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .BackColor = vbBlack
  DoEvents
  .FillStyle = 0
  SW = .ScaleWidth
  SH = .ScaleHeight
  XM = SW \ 2
  YM = SH \ 2
  For i = 0 To 2
    Wnk = 2 * Pi / 3 * i
    XPos = Int(XM + PosRad * Cos(Wnk))
    YPos = Int(YM - PosRad * Sin(Wnk))
    Set .Picture = .Image
    .FillColor = Choose(i + 1, vbRed, vbBlue, vbGreen)
    Me.Circle (XPos, YPos), KreisRad
    .PaintPicture .Picture, 0, 0, , , , , , , vbSrcPaint
    DoEvents
  Next i
End With
 
End Sub

Gruss,

Zardoz