You can use "Form.Polygon"
Sub Globals
'Declare the global variables here.
Dim PX(4)
Dim PY(4)
End Sub
Sub App_Start
Form1.Show
PX()=Array(20,200,200,20)
PY()=Array(20,20,110,110)
Form1.Polygon(PX(),0,PY(),0,4,cBlue,F)
PY()=Array(140,140,190,190)
Form1.Polygon(PX(),0,PY(),0,4,cRed,F)
End Sub
PepSoft