VB编程，在窗体上创建一文本框，通过选择，我们可以改变文本框的字体以及字体颜色和背景颜色，运行结果

Private Sub Option1_Click(Index As Integer)
''字体、字色、背景都用控件数组
Text1.FontName = Option1(Index).Caption '字体
End Sub
Private Sub Option2_Click(Index As Integer)
If Option2(Index).Caption = "红色" Then '背景色
Text1.BackColor = vbRed
ElseIf Option2(Index).Caption = "绿色" Then
Text1.BackColor = vbGreen '色值，VB里有定义的
Else
Text1.BackColor = &HFF0000 '蓝色16进制值。这样写也行
End If
End Sub
Private Sub Option3_Click(Index As Integer)
If Option3(Index).Caption = "红色" Then '字色
Text1.ForeColor = vbRed
ElseIf Option3(Index).Caption = "绿色" Then
Text1.ForeColor = vbGreen '色值，VB里有定义的
Else
Text1.ForeColor = &HFF0000 '这是蓝色值。这样写也行
End If
End Sub