用API画多边形
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 POINTAPI, ByVal nCount As Long) As Long
Private Sub Command1_Click()
Dim Point(0 To 10) As POINTAPI
Point(0).x = 0: Point(0).y = 100
Point(1).x = 200: Point(1).y = 100
Point(2).x = 66: Point(2).y = 200
Point(3).x = 100: Point(3).y = 0
Point(4).x = 133: Point(4).y = 200
Polygon Me.hdc, Point(0), 5
End Sub
Private Sub Form_Load()
End Sub