Private Sub Form_Activate()
  Dim N%, i%, W1!, W2!, Pi!, R1!, R2!, EX!, EY!, T1!
 
  N = 4 'Ecken
  R1 = 120 'Breite
  R2 = 60 'Höhe
  Pi = 4 * Atn(1)
  ScaleMode = 3
  AutoRedraw = True
  Do
    Cls
    For i = 0 To N
      W2 = 2 * Pi / N * i
      EX = R1 * Cos(W1) * Sin(W2) - R2 * Sin(W1) * Cos(W2) + ScaleWidth \ 2
      EY = R1 * Sin(W1) * Sin(W2) + R2 * Cos(W1) * Cos(W2) + ScaleHeight \ 2
      If i = 0 Then PSet (EX, EY) Else Line -(EX, EY), vbBlue
    Next i
    W1 = W1 + 0.01
    If W1 > 2 * Pi Then W1 = W1 - 2 * Pi
    T1 = Timer + 0.02
    Do: DoEvents: Loop While Timer < T1
  Loop
End Sub
 
Private Sub Form_Unload(Cancel%)
  End
End Sub

Gruss,

Zardoz