Mohammmed,

You can't put the IF... code in the forms' declaration section of code, you must put it in a method of the form.

Kurt
>hi,
>thank you for reply?
>i get error message ..
>Statement is not valid in a class definition
>

>  Add Object txtstart As TextBox With ;
>    Value = (Date()), Left = 80, Top = 115, Width = 100
>  Add Object cmdCalculate As CommandButton With ;
>    Top = 145, Left = 80, Caption = "Go"
>  Add Object grddistribution As Grid With ;
>    Height = 280, Left = 190, Top = 5, Visible = .F., Width = 280
>
>    ****************************************************************
>*IF INLIST(ALLTRIM(STR(day(txtstart.value))),"01","1")
>*IF  day(txtstart.value)= 1
>

>thanks
>
>>DAY(textstart.value) will be numeric so just:
>>

IF  day(txtstart.value)= 1

>>is all that's needed
>>
>>HTH,
>>Viv
>>
>>>how i can write this code under via correct way ?
>>>

>>>Add Object txtstart As TextBox With ;
>>>    Value = (Date()), Left = 80, Top = 115, Width = 100
>>>  Add Object cmdCalculate As CommandButton With ;
>>>    Top = 145, Left = 80, Caption = "Go"
>>>  Add Object grddistribution As Grid With ;
>>>    Height = 280, Left = 190, Top = 5, Visible = .F., Width = 280
>>>
>>>    ****************************************************************
>>>IF  day(txtstart.value)=01 or 1 &&
>>>.
>>>.
>>>endif
>>>

>>>
>>>thanks.