thanks Kulwant

problem now solve but i am also checking deeply

thanks

Khurram

> Hi Khurram,

>

> I am not Sure but.. You can try this and see if it works

>

>

clearcalendar()
>
> local i, x
> i = 1
> x = 1
>
> for n = 0 to 43
> if i < 7
> ExecuteDate = "thisform.nDay" + ALLTRIM(STR(x)) + ALLTRI(STR(i)) + "." + "caption"
> &ExecuteDate = ""
>
> &&Add these two lines to the the clearcalendar function
> Resetcolor = "thisform.nDay" + ALLTRIM(STR(x)) + ALLTRI(STR(i)) + "." + "backcolor"
> &Resetcolor = rgb(255, 255, 255)
> endif
> if x = 7
> i = i + 1
> x = 0
> endif
> x = x + 1
> endfor

>

>

>

>

> kulwant

> (Help Save the TIGER. Save Wildlife. Live & let Live)