Dim mycolor(6) As ColorConstants


Private Sub Form_Load()

    mycolor(0) = vbBlack
    mycolor(1) = vbBlue
    mycolor(2) = vbCyan
    mycolor(3) = vbGreen
    mycolor(4) = vbMagenta
    mycolor(5) = vbRed

End Sub

Private Sub Command1_Click()

    List1.AddItem "black"
    List1.AddItem "blue"
    List1.AddItem "cyan"
    List1.AddItem "green"
    List1.AddItem "magenta"
    List1.AddItem "red"

End Sub

Private Sub List1_Click()

    Text1.ForeColor = mycolor(List1.ListIndex)

List1.Clear

End Sub

Back to vb6 exercises