可以将VB常量设置为数组么？

比如说颜色常量vbRed，vbYellow， 可以把这些vb自带的常量添加到一个数组里面么？ 怎么使用？

我是为了试试下面那个

VB code:

Private Sub Command1_Click()
Dim a(6) As Variant

a(6) = Array("vbRed,vbWhite,vbBlack,vbYellow,vbGreen")
Randomize
i = Int(Rnd * 5)
Text1.ForeColor = a[i]
End Sub

---

VB code:
Private Sub Command1_Click()
Dim a() As Variant

a() = Array(vbRed, vbWhite, vbBlack, vbYellow, vbGreen)
Randomize
i = Int(Rnd * 5)
MsgBox vbRed
Text1.ForeColor = a(i)
End Sub

---

VB code:
Private Sub Command1_Click()
Dim a() As Variant
a() = Array(vbRed, vbWhite, vbBlack, vbYellow, vbGreen)
Randomize
i = Int(Rnd * 5)
Text1.ForeColor = a(i)
End Sub

---

是我写错了， Text1.ForeColor = a[i]  应该是a（i），但是还是不对的，提示类型不匹配

---

使用3楼的可以，但需：dim i as Long
另外，你的a(i)中使用的括号应该是英文括号。

---

VB code:
Private Sub Command1_Click()
Dim a As Variant
a = Array(vbRed, vbWhite, vbBlack, vbYellow, v