Private Sub RotateRoundRect(XPos!, YPos!, Breite!, Hoehe!, Radius!, Winkel!) ' 
' Winkel in Altgrad
 
Dim CosW!, SinW!, XP!, YP!, i%, j%, N%, Z%, Wnk!, Rgn1&, Figur() As PointAPI
 
Wnk = Winkel * Pi / 180
SinW = Sin(Wnk)
CosW = Cos(Wnk)
N = Pi * Radius / 2
ReDim Figur(4 * N - 1)
Z = 0
For i = 0 To 3
  For j = N - 1 To 0 Step -1
    Wnk = Pi / 2 * (1 + j / N - i)
    XP = Radius * Cos(Wnk) + Breite * (((i \ 2) Xor (i And 1)) - 0.5)
    YP = Radius * -Sin(Wnk) + Hoehe * ((i \ 2) - 0.5)
    Figur(Z).x = CosW * XP - SinW * YP + XPos + Breite / 2
    Figur(Z).y = SinW * XP + CosW * YP + YPos + Hoehe / 2
    Z = Z + 1
  Next j
Next i
Rgn1 = CreatePolygonRgn(Figur(0), 4 * N, ALTERNATE)
Call PaintRgn(Picture1.hdc, Rgn1)
Call DeleteObject(Rgn1)
Picture1.Refresh
 
End Sub

Gruss,

Zardoz