主题：标签颜色

Label1的DataFormat事件代码:

If e.Value < Date.Today Then
    e.Sender.ForeColor = Color.red
Else
    e.Sender.ForeColor = Color.Black
End If