我的画多边形Polygon程序为什么不能通过?

Question

Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, _
            lpPoint As POINTAPI, ByVal nCount As Long)Private Type POINTAPI
    x As Long
    y As LongEnd TypePrivate Sub Command1_Click()Dim p(0 To 4) As POINTAPIp(0).x = 100: p(0).y = 0
p(1).x = 0: p(1).y = 100
p(2).x = 50: p(2).y = 200
p(3).x = 120: p(3).y = 200
p(4).x = 200: p(4).y = 100Call Polygon(Me.hdc, p(0), 5)End Sub

Answer 1

API函数申明错误
既然是函数，就的有返回值，所以要加上As LongPrivate Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long