Text6.Text = ("【" & Text1.Text & "】,【" & Text2.Text & "】,【" & Text3.Text & "】,【" & Text4.Text & "】." & Hour(Time) & ":" & Minute(Time) & ":" & Second(Time))
Text5.Text = Text5.Text + Text6.Text & vbCrLf
Text5.SelStart = Len(Text5)

command1_Click
text6.ForeColor = &HFF&
command2_Click
text6.ForeColor = &H0&

这么写后text5里面的字还是原色没变化。
如果改成
command1_Click
text5.ForeColor = &HFF&
command2_Click
text5.ForeColor = &H0&
那text5里面已有的所有内容字体颜色会统一变成一个颜色。

用RichTextBox1控件吧
标准的textbox控件好像不能改变局部字符的颜色或别的属性。

RichTextBox1控件没找到有字体颜色的属性呢

selcolor

看代码，很像是显示程序内部日志的代码

这种代码，我是使用 lable 控件数组来做的。

初始化：按指定显示区域高度，计算可以排列多少个 控件，然后载入，然后按奇偶指定好字体颜色。如果显示区域高度固定，可以在设计阶段手动指定。
运行：
循环，把下一个标签内容给上一个，
新的内容给最后一个标签

因lable是轻量级的控件，所以它的刷新速度可以做到很快的。比textbox 要快的多。

用 PictureBox 控件可以实现文字的多种颜色

是的，一个简单的日志功能。谢谢思路

非常感谢

非常感谢。