'Deklarationsteil
Private Type POINTAPI
   x As Long
   y As Long
End Type
 
Private Declare Function Polygon Lib "gdi32.dll" (ByVal hdc As Long, lpPoint As _
  POINTAPI, ByVal nCount As Long) As Long
 
' weiter unten im code von UserControl_Resize
 
    Dim poly(1 To 3) As POINTAPI
    NumCoords = 3
 
    'Polygon Koordinaten
    poly(1).x = 0
    poly(1).y = 0
    poly(2).x = 200
    poly(2).y = 0
    poly(3).x = 0
    poly(3).y = 200
 
    'und nun zeichnen
    Polygon UserControl.hdc, poly(1), NumCoords

bike_tomy