как сделалть разноцветные символы выводимые на одном Label

вот программа:

Dim e, h As String
Dim e2, e3, e4, e5, e6, e7, e8, e9 As String
Dim m(10) As String
Dim a, b, g As Integer


Private Sub Command1_Click()
Label1 = ""

e1 = m(0)
e2 = m(1)
e3 = m(2)
e4 = m(3)
e5 = m(4)
e6 = m(5)
e7 = m(6)
e8 = m(7)
e9 = m(8)

Randomize Timer:
a = Int(Rnd * 4) + 1
e = Str(a)

Label1 = a ' counter
b = b + 1 ' counter
Label2 = b ' counter

m(0) = e
m(1) = e1
m(2) = e2
m(3) = e3
m(4) = e4
m(5) = e5
m(6) = e6
m(7) = e7
m(8) = e8
m(9) = e9

h = ""
For g = 0 To 10
h = h + m(g)
Next g
Label3 = h

End Sub


Private Sub Command2_Click()
Label2 = "0"
Label3 = ""
Label1 = ""
b = 0

For g = 0 To 10
m(g) = ""
Next g

End Sub

Private Sub Form_Load()
Label2 = "0"

End Sub


вот как сделать штоб в одном Label3 выводимый текст - цыфры были разноцветными.

можно с двухмерном масивом, штоб вводть каждому символу отдельное значение цвета, но как вывести в Label3 ? :confused: