vb6 如何畫多邊形shape

Public Sub DrawRegularShape(ByRef Pic As Object, ByVal EdgesCt As Long, ByVal CircleR As Long, ByVal IntAngle As Double, _
  ByVal CenterX As Long, ByVal CenterY As Long, ByVal FilledColor As Long)


    Dim P(100) As POINTAPI, hBrush As Long, hRgn As Long
    Dim i As Long
    Dim tempX As Long, tempY As Long, Angle As Double
    
    
    'Convert Angle Into 'Rad'
    IntAngle = IntAngle / 180 * Pi
    
    
    '----------- Specify Points ----------
    
    For i = 0 To EdgesCt - 1

      Angle = ((Pi * 2 / EdgesCt) * i) + IntAngle + (Pi / 2)
      tempX = CenterX + (CircleR * Cos(Angle))
      tempY = CenterY - (CircleR * Sin(Angle))

      P(i).X = tempX
      P(i).Y = tempY
      
'      '[Debug - Draw Pien Point]
'      Pic.DrawWidth = 3
'      Pic.PSet (tempX, tempY)

    Next i
    
    Do While i <= UBound(P)
      P(i).X = P(i - 1).X
      P(i).Y = P(i - 1).Y
      i = i + 1
    Loop

    
    '--------------------------------------
    
    hBrush = CreateSolidBrush(FilledColor)
    hRgn = CreatePolygonRgn(P(0), UBound(P), ALTERNATE)
    If hRgn Then FillRgn Pic.hdc, hRgn, hBrush
    DeleteObject hRgn
    
    
'    '[Debug - Draw Central Point]
'    Pic.DrawWidth = 5
'    Pic.PSet (CenterX, CenterY)


End Sub