Public Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, _
lpPoint As POINTAPI, ByVal nCount As Long) As Long
Public Type POINTAPI: X As Long: Y As Long: End Type
Sub Polygons(N As Long, coordX() As Double, coordY() As Double, _
bCol As Double, fCol As Double, calledPict As PictureBox)
Dim iCount As Integer
Dim Angles() As POINTAPI
ReDim Angles(N)
For iCount =  0  To N -  1 
Angles(iCount).X = CLng(coordX(iCount))
Angles(iCount).Y = CLng(coordY(iCount))
Next iCount
Angles(N).X = CLng(coordX( 0 ))
Angles(N).Y = CLng(coordY( 0 ))
calledPict.ForeColor = bCol
calledPict.FillColor = fCol
calledPict.FillStyle =  0 
Call Polygon(calledPict.hdc, Angles( 0 ), N)
End Sub