API绘图的问题？
在类中
Option Explicit

Const ALTERNATE = 1

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function Pie Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Private Declare Function PolyBezier& Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long)
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lppoint As POINTAPI, ByVal ncount As Long) As Long
Private Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lppoint As POINTAPI, ByVal ncount As Long) As Long
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lppoint As POINTAPI, ByVal ncount As Long, ByVal npolyfillmode As Long) As Long
Private Declare Function CreateHatchBrush Lib "gdi32" (ByVal nIndex As Long, ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function PaintRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Function pp()
Dim PLRegPoints(1 To 3) As POINTAPI
PLRegPoints(1).x = 300
PLRegPoints(1).y = 50
PLRegPoints(2).x = 20
PLRegPoints(2).y = 330
PLRegPoints(3).x = 580
PLRegPoints(3).y = 330
Call Polygon(Form1.picDrawAPI.hdc, PLRegPoints(1), 3)
End Function

问题
------------------
在cmd中，绘图成立。
Private Sub Command1_Click()
Dim ss As New Class1
ss.pp
End Sub
------------------------
直接进入绘图不成立。
Private Sub Form_Initialize()
Dim ss As New Class1
ss.pp


[解决办法]
发帖重复了