Hi Forum,

I had some help in here previously with finding a way to change a label caption based on a date value in a corresponding textbox... Now, I'm hoping to receive some help to change the captions font color. Below is the code I'm currently using to change the label's caption:

            
            Dim WCCnb As Date
            On Error Resume Next
            WCCnb = CDate(Me.txtWCCnb.Text)
            On Error GoTo 0

            If WCCnb = 0 Then
                Me.lblWCCnb.Caption = "Not Completed"
            Else
                Select Case (WCCnb > Int(Now))
                    Case True:  Me.lblWCCnb.Caption = "Scheduled for " & Format(WCCnb, "mm/dd/yyyy")
                    Case Else:  Me.lblWCCnb.Caption = "Completed on " & Format(WCCnb, "mm/dd/yyyy")
                End Select
            End If
What I would like is for the caption's font to appear green if it meets criteria for the "Case True" statement in the above select case. Any help? Thanks!