Option Explicit
Private Type PunktAPI
  X As Long
  Y As Long
End Type
Private Declare Function Polygon& Lib "gdi32" (ByVal hdc&, _
  lpPoint As PunktAPI, ByVal nCount&)
 
Private Sub Form_Activate()
 
Dim Wnk!, Rad1&, i&, N&, Figur() As PunktAPI
 
N = 7
ReDim Figur(N)
With Me
  .ScaleMode = 3
  .AutoRedraw = True
  .BackColor = vbBlack
  .ForeColor = vbWhite
  .FillStyle = 1
  .DrawStyle = 1
  Rad1 = 100
  For i = 0 To N - 1
    Wnk = 8 * Atn(1) / N * i
    Figur(i).X = .ScaleWidth / 2 + Rad1 * Sin(Wnk)
    Figur(i).Y = .ScaleHeight / 2 + Rad1 * Cos(Wnk)
  Next i
  Polygon .hdc, Figur(0), N
  .Refresh
End With
 
End Sub

Gruss,

Zardoz