В программе нужно динамически менять диапазон дат из которых пользователь может выбирать значение - VB

Формулировка задачи:

Столкнулся с такой проблемой - в программе нужно динамически менять диапазон дат из которых пользователь может выбирать значение выглядит примерно так:

Private Sub Form_Load()
    dtmBegin = Cdate('01.10.04') 
    dtmEnd = Cdate('30.10.04')
    dtpHoliday.Value = dtmBegin
    dtpHoliday.MinDate = dtmBegin
    dtpHoliday.MaxDate = dtmEnd
End Sub

при этом работает только MaxDate (т.е. 01.11.04 выбрать нельзя), а вот MinDate не работает. Причем если в коде поменять местами

    dtpHoliday.MaxDate = dtmEnd
    dtpHoliday.MinDate = dtmBegin

то уже не работает MaxDate Что это глюк или ... Помогите, может кто сталкивался с проблемой?

Решение задачи: «В программе нужно динамически менять диапазон дат из которых пользователь может выбирать значение»

textual
                            Листинг программы 
                        

                            DTPicker1.Year = Year(Date)
DTPicker1.Month = 11 'Month(Date)
DTPicker1.Day = 30 'Day(Date)
                        