'######## クラスモジュール cPolygonDrawer ########
Public hdc As Long
Private mDegreeOf1stPoint As Double
Private mLineColor As Long
Private mFillColor As Long
Private mPenHandle As Long
Private mBrushHandle As Long
Private mNumOfAngle As Integer
Private Const PI As Double = 3.1415923
Private Sub Class_Initialize()
　　Me.NumOfAngle = 3
　　Me.DegreeOf1stPoint = 90
　　Call SetFillColor(255, 0, 0)
　　Call SetLineColor(255, 255, 255)
End Sub
Private Sub Class_Terminate()
　　DeleteMyBrushIfNeed
　　DeleteMyPenIfNeed
End Sub
Public Property Let NumOfAngle(N As Integer)
　　If N > 2 Then
　　　　mNumOfAngle = N
　　End If
End Property
Public Property Let DegreeOf1stPoint(deg As Double)
　　mDegreeOf1stPoint = -deg
End Property