VB森林模拟程序中如何单独改变文本框变量fircut的颜色？

要实现仅改变变量fircut的颜色，不能用单一的Console.WriteLine整行输出，需要拆分输出步骤，临时修改控制台前景色后输出变量，再恢复默认颜色，具体代码如下：

' 先输出固定文本（不换行）
Console.Write("Number of fir trees cut ")
' 设置变量输出的目标颜色，比如红色
Console.ForegroundColor = ConsoleColor.Red
' 输出变量内容
Console.Write(fircut)
' 恢复控制台默认颜色，避免后续输出受影响
Console.ResetColor()
' 完成整行输出的换行操作
Console.WriteLine()

如果需要多次复用这个逻辑，可以封装成一个子程序，调用更便捷：

' 封装的彩色变量输出子程序
Sub PrintColoredVariable(prefixText As String, variable As Object, textColor As ConsoleColor)
    Console.Write(prefixText)
    Console.ForegroundColor = textColor
    Console.Write(variable)
    Console.ResetColor()
    Console.WriteLine()
End Sub

' 调用示例，这里用红色输出fircut变量
PrintColoredVariable("Number of fir trees cut ", fircut, ConsoleColor.Red)

之前的子程序没生效，大概率是没正确拆分输出流程，或者忘记恢复默认颜色，导致后续输出颜色异常。

内容的提问来源于stack exchange，提问作者Gacjan Mackiewicz