Option Explicit
 
Private Type PointAPI
  x As Long
  y As Long
End Type
 
Private Declare Function Polygon& Lib "gdi32" (ByVal hdc&, lpPoint As PointAPI, _
  ByVal nCount&)
 
Private Const Pi! = 3.1415926

Private Sub Picture1_Click()