>>368
暇だったから多角形を塗りつぶすクラスを作ってみたよ。
っていうか、そんな読む気もおこらないウンココードは捨てた方がたぶん吉だよw
'######## Form1 ########
Private mPolygonDrawer As New cPolygonDrawer
Private mMouseDownPoint As Win32API.POINTAPI
Private Sub Form_Load()
　　Me.ScaleMode = vbPixels
　　With mPolygonDrawer
　　　　.hdc = Me.hdc
　　　　.NumOfAngle = 6
　　End With
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　mMouseDownPoint.X = X
　　mMouseDownPoint.Y = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Dim r As Long
　　Dim red As Byte
　　Dim green As Byte
　　Dim blue As Byte
　　
　　red = Rnd * 255
　　green = Rnd * 255
　　blue = Rnd * 255
　　Call mPolygonDrawer.SetFillColor(red, green, blue)
　　With mMouseDownPoint
　　　　r = Sqr((X - .X) ^ 2 + (Y - .Y) ^ 2)
　　　　Call mPolygonDrawer.Draw(.X, .Y, r)
　　End With
End Sub