Option Explicit Private Type POINTAPI x As Long y As Long End Type Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As Any, ByVal nCount As Long) As Long Private Sub Command1_Click() Dim Points(2) As POINTAPI Points(0).x = 0 Points(0).y = 0 Points(1).x = 100 Points(1).y = 0 Points(2).x = 50 Points(2).y = 50 Me.FillStyle = vbSolid Me.FillColor = vbRed Polygon Me.hdc, Points(0), 3 End Sub
E.B.