Private Sub Command1_Click() Dim pt(3) As POINT Dim I As Long pt(0).X = 50 pt(0).Y = 10 pt(1).X = 10 pt(1).Y = 100 pt(2).X = 100 pt(2).Y = 50 Polygon Picture1.hDC, pt(0), 3 End Sub