I'm creating a date and time picker form, having watched the seminar on creating appointment calendars. It's mostly working. However, I have two problems: The backcolor of the dates for the prior and following months doesn't render as a different shade of gray than the currently selected month, and when I select the current month, the backcolor of the current date doesn't turn blue. My code:

Details

Private Sub SetDates()

    Dim X As Long
    
    If IsNull(MyDate) Then Exit Sub
    
    For X = 1 To 42
    
        ' Date fields
        Me.Controls("Date" & X) = Format([StartDate] + X - 1, "d")
        
        ' Date colors (in prev/next months) *** doesn't work ***
        If Month(Me.Controls("Date" & X)) <> Month(MyDate) Then
            Me.Controls("Date" & X).BackColor = RGB(236, 236, 236) ' very light gray
        Else
            Me.Controls("Date" & X).BackColor = RGB(187, 182, 174) ' medium gray
        End If
        
        'Events (click a date makes it the currently selected date)
        Me.Controls("Date" & X).OnClick = "=ChangeSelectedDate(" & X & ")"
        
        ' Today's date backcolor  *** doesn't work ***
        If Me.Controls("Date" & X) = Date Then
            Me.Controls("Date" & X).ForeColor = vbBlack
            Me.Controls("Date" & X).BackColor = RGB(132, 161, 198) ' medium blue
        Else
            Me.Controls("Date" & X).ForeColor = vbBlack
            Me.Controls("Date" & X).BackColor = RGB(187, 182, 174) ' medium gray
        End If
        
    Next
    
End Sub
Copy

Can anyone spot my mistake?