主题：如何动态显示窗口中文本的颜色

参考以下图片，我想在复选框没有被选中的情况下，后面的标题显示“未完成”并且以红色字体显示；如果已经被选中，后面的标题显示“已完成”，并且以绿色字体显示；

单号的ValueChanged事件，状态的CheckedChanged事件

 Dim cbx = e.form.controls("CheckBox1")

 If cbx.Checked Then

     cbx.forecolor = Color.Green

 Else

     cbx.forecolor = Color.Red

 End If

谢谢老师；