vfp日历控件选择两个以上日期

想用vfp6.0的日历控件，做了一个连续几个日期选择。就是在指定月份连续用鼠标点日历上2个以上日期，并把具体日期值传给事先定义好的数组里。请教各位老师，如何实现？谢谢！附我自己的代码
在表单上插入一个页框，在页框内插入日历控件，事先定义一个全局数组，将每次鼠标点的日期值赋给数组。我想用一个循环实现连续点选，连续赋值，结果发现数组都是一个值。请各位老师帮我看一下。跪谢！
set date ansi
set cent on
mymonth=thisform.pageframe1.page1.jjr.month
myyear=thisform.pageframe1.page1.jjr.year
myday=thisform.pageframe1.page1.jjr.day
stor 1 to  i
do while i<=11
   myrq=str(myyear,4)+'.'+right('0'+allt(str(mymonth)),2)+'.'+right('0'+allt(str(myday)),2)
   arrayjjr(i)=ctod(myrq)
   i=i+1
enddo
messagebox("全年节假日共11天，已达规定天数。请确认选择，否则重新选择",64,"警告")