DatePicker DayMetrics

In the VB6 DatePicker Sample, how would I go about using the DayMetrics with the wndLabel_PopUp control?

I have a similar function in my app and I would like to change the weekend days to Red but I don't know how to get to the DayMetrics with this function.

Below is the code in the MouseDown event for the text box:


Dim pDatePicker
    Set pDatePicker = CreateObject("Codejock.DatePicker." + XtremeCalendarControl.Version)
   
    If Not pDatePicker Is Nothing Then
   
        Dim pixX As Long, pixY As Long, pixWidth As Long, pixHeight As Long
       
        pixX = x / Screen.TwipsPerPixelX
        pixY = y / Screen.TwipsPerPixelY
               
        pDatePicker.GetMinReqRect pixWidth, pixHeight, 2, 2

       
        If pDatePicker.ShowModalEx(pixX, pixY, pixWidth, pixHeight, wndLabel_PopUp.hwnd) Then
       
            Dim strDate0 As String, strDate1 As String
            Dim nCount As Long
           
            nCount = pDatePicker.Selection.BlocksCount
            If nCount > 0 Then
                cmbPopUp.Refresh
                cmbPopUp.Text = pDatePicker.Selection.Blocks(0).DateBegin
                                       
                strDate0 = pDatePicker.Selection.Blocks(0).DateBegin
                strDate1 = pDatePicker.Selection.Blocks(nCount - 1).DateEnd
               
                wndLabel_PopUp.Text = strDate0 & " - " & strDate1
            End If
       
        End If
    End If