调色板实现，如图，求教

[taotaoeta]

VB如何实现下列效果？

[taotaoeta]

坐标怎么标识的？

[taotaoeta]

g.FillPie(br1, rect, 0, 360 * 15 / sum)

g.FillPie(br2, rect, 0, 360 * 25 / sum)

g.FillPie(br3, rect, 0, 360 * 20 / sum)

g.FillPie(br4, rect, 0, 360 * 15 / sum)

g.FillPie(br5, rect, 0, -360 * 15 / sum)

g.FillPie(br6, rect, 0, -360 * 10 / sum)

第4个参数有问题，请教该如何写？

[taotaoeta]

Dim br1 As SolidBrush = New SolidBrush(Color.Green)

[worldy]

Private Sub Command6_Click()
FillStyle = 0
FillColor = 255
Circle (500, 500), 300, RGB(0, 0, 255), -3.14159 / 6, -3.1415926 / 3

FillColor = &HFF0000
Circle (500, 500), 300, &HFF0000, -3.14159 / 3 - 0.001, -3.1415926 / 3 * 2

End Sub

[worldy]

将最后两个参数设置为负数 ，就能画出扇形，负数是关键