Date Picker Sample Problem?

In the DatePickerSample (VB6) the behavior of the cmbPopUp seems wrong to me.  Specifically, if there is a date in the combo box  and you click the drop down button the date is displayed in the data picker. All good so far. If the user then clicks the drop down again the date picker closes and the value in the cmbPopUp is cleared.  I have tried all sorts of stuff so that the value in the cmbPopUp remains the same as before but I cannot get it to work.  Any ideas on how to make it retain the previous value?

I am aware of the logic used in the sample.  However, take the following modification to the code which should allow for restoring the original value into the combo, but it does not work. The DatePicker is cause the value to be removed.  If you step through the code it works fine, but when you run it with no breaks the value is not restored. 

Private Sub cmbPopUp_DropDown()
    Dim sValue As String
 '   Label1.Caption = "Pop-up:"
 
    ' get the current value of the combo box
    sValue = cmbPopUp.Text
   
    If IsDate(cmbPopUp.Text) Then
        'wndDatePickerPopUp.SelectRange cmbPopUp.Text, cmbPopUp.Text
        wndDatePickerPopUp.EnsureVisible cmbPopUp.Text
    End If
   
    wndDatePickerPopUp.Left = cmbPopUp.Left
    wndDatePickerPopUp.Top = cmbPopUp.Top + cmbPopUp.Height + 20
   
    If wndDatePickerPopUp.ShowModal(1, 1) Then
   
        Dim strDate0 As String, strDate1 As String
        Dim nCount As Long
            
        nCount = wndDatePickerPopUp.Selection.BlocksCount
        If nCount > 0 Then
             cmbPopUp.Refresh
             cmbPopUp.Text = wndDatePickerPopUp.Selection.Blocks(0).DateBegin
                                        
             strDate0 = wndDatePickerPopUp.Selection.Blocks(0).DateBegin
             strDate1 = wndDatePickerPopUp.Selection.Blocks(nCount - 1).DateEnd
            
             wndLabel_PopUp.Text = strDate0 & " - " & strDate1
        Else
             wndLabel_PopUp.Text = "-none-"
             ' restore the previous value of the combo
             cmbPopUp.Text = sValue
        End If
    Else
        wndLabel_PopUp.Text = "-ESC-"
        ' restore the previous value of the combo
        cmbPopUp.Text = sValue
    End If
    PostMessage cmbPopUp.hwnd, CB_SHOWDROPDOWN, 0, 0
    cmbPopUp.Refresh
End Sub

I implemented something similar to solve the problem after looking at various subclassing options. The paint of the drop down after a date is selected is very annoying.  It makes the solution look like a hack rather and does not follow the professional style of all your other controls. 

I would love to see you add a fully implemented Combo Box Date Picker as an optional control so that this type of paint issue does not occur.

Keep up the good work!