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.