跪求以下这段VB代码到底哪里出错了，错误说.forecolor属性使用无效，是设置字体颜色的。

Question

Private Sub Combo3_Click()
Select Case Combo3.Text
Case 0
Text1.ForeColor vbRed
Case 1
Text1.ForeColor vbGreen
Case 2
Text1.ForeColor vbBlue
End Select
End Sub

Answer 1

少了等号，应改为

Private Sub Combo3_Click()
Select Case Combo3.Text
Case 0
Text1.ForeColor = vbRed
Case 1
Text1.ForeColor = vbGreen
Case 2
Text1.ForeColor = vbBlue
End Select
End Sub

Answer 2

属性使用等号赋值
Text1.ForeColor vbRed

改成
Text1.ForeColor = vbRed

其他类似本回答被网友采纳

Answer 3

combo3.text是文本，不是数字。应该是val(combo3.text)或者combo3.ListIndex

而且设置属性应该用等号Text1.ForeColor  = vbRed