Контрол для выбора месяца и года есть типа датапикера? - VB

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

В общем надо что-то типа датапикера с выпадающим календарем, но выбирать только месяц и год. Хотел комбобоксами сделать, но может чего получше есть?

Решение задачи: «Контрол для выбора месяца и года есть типа датапикера?»

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

                            <font color="blue">Private</font> eptDate <font color="blue">As</font> <font color="blue">Date</font>
<font color="blue">Public</font> <font color="blue">Property</font> <font color="blue">Get</font> emptyDate() <font color="blue">As</font> <font color="blue">Date</font>
    emptyDate = eptDate
<font color="blue">End</font> <font color="blue">Property</font>
<font color="blue">Public</font> <font color="blue">Function</font> showCalendar(Optional startDate <font color="blue">As</font> <font color="blue">Date</font>) <font color="blue">As</font> <font color="blue">Date</font>
    <font color="blue">Dim</font> frm <font color="blue">As</font> <font color="blue">New</font> frmCalendar
    load frm
    <font color="blue">If</font> startDate <> emptyDate <font color="blue">Then</font>
        frm.value = startDate
    <font color="blue">End</font> <font color="blue">If</font>
    frm.Show vbModal
    showCalendar = frm.value
    Unload frm
<font color="blue">End</font> <font color="blue">Function</font>

                        