Private Sub Form_Activate()
 
Dim N%, Rad%, Wnk!, XM%, YM%, i%
 
N = InputBox("Wieviele Stücke?", , 7)
Me.ScaleMode = vbPixels
XM = Me.ScaleWidth \ 2
YM = Me.ScaleHeight \ 2
Rad = 100
Me.Circle (XM, YM), Rad, vbBlue
For i = 0 To N - 1
  Wnk = 8 * Atn(1) / N * i
  Me.Line (XM, YM)-(XM + Rad * Sin(Wnk), YM + Rad * Cos(Wnk)), vbBlue
Next i
 
End Sub

Gruss,

Zardoz