vb的问题

在vb里可以画图吗？我要画一个五角星而且要求填充不同的颜色
鼠标在那个顶点哪里就会出现‘这是第几个顶点’的小方框
谁能帮帮我？

---

怎么没人帮我哎呀？
哎.........

---

你们人呢？

---

等大胡子来。

---

帮顶

---

我什么等他来啊？
你也可以帮我啊

---

你小子,想把我累死啊

引用

等大胡子来。

---

呵呵  大胡子大哥 你就帮帮我把

---

你还是用PPT做吧,把我累死也教不会的.

引用

呵呵  大胡子大哥 你就帮帮我把

---

不行啊  必须是用vb作
Private Sub Command1_Click()
Form1.Scale (-100, 100)-(100, -100)
Dim i As Integer, p(4, 1) As Integer
For i = 0 To 4
p(i, 0) = 80 * Cos((90 + i * 144) / 180 * 3.141592653)
p(i, 1) = 80 * Sin((90 + i * 144) / 180 * 3.141592653)
Next
Form1.CurrentX = p(4, 0)
Form1.CurrentY = p(4, 1)
For i = 0 To 4
Form1.Line -(p(i, 0), p(i, 1))
Next
End Sub
五角星画好了 可是我不会填充颜色哦  大胡子哥哥你帮帮我把

---

这里有砖家你不问
俺是拣萝卜白菜的

引用

不行啊  必须是用vb作
Private Sub Command1_Click()
Form1.Scale (-100, 100)-(100, -100)
Dim i As Integer, p(4, 1) As Integer
For i = 0 To 4
p(i, 0) = 80 * Cos((90