Private Sub Form_Activate()
 
Dim i%, Wnk!, Winkel!, MinX!, MaxX!, MinY!, MaxY!, XR!, YR!
Dim Pi!, DPuX!, DPuY!, SiW!, CoW!, XP!(3), YP!(3), EX!(3), EY!(3)
 
Me.ScaleMode = vbPixels
Me.AutoRedraw = True
Pi = 4 * Atn(1)
 
'Koordinaten des Rechtecks:
XP(0) = 0 + 120
YP(0) = 0 + 100
 
XP(1) = 70 + 120
YP(1) = 0 + 100
 
XP(2) = 70 + 120
YP(2) = 50 + 100
 
XP(3) = 0 + 120
YP(3) = 50 + 100
 
For i = 0 To 3
  If i = 0 Or XP(i) < MinX Then MinX = XP(i)
  If i = 0 Or XP(i) > MaxX Then MaxX = XP(i)
  If i = 0 Or YP(i) < MinY Then MinY = YP(i)
  If i = 0 Or YP(i) > MaxY Then MaxY = YP(i)
Next i
 
'Drehpunkt
DPuX = (MinX + MaxX) / 2
DPuY = (MinY + MaxY) / 2
 
Do
  Wnk = Winkel * Pi / 180
  SiW = Sin(Wnk)
  CoW = Cos(Wnk)
  For i = 0 To 3
    XR = XP(i) - DPuX
    YR = YP(i) - DPuY
    EX(i) = CoW * XR - SiW * YR + DPuX
    EY(i) = SiW * XR + CoW * YR + DPuY
  Next i
 
  'Zeichnen:
  Me.Cls
  Me.PSet (EX(3), EY(3))
  For i = 0 To 3
    Me.Line -(EX(i), EY(i)), vbBlue
  Next i
 
  Winkel = (Winkel + 1) Mod 360
  DoEvents
Loop
 
End Sub
 
Private Sub Form_Unload(Cancel%)
 
End
 
End Sub

Gruss,

Zardoz