>hi all,
>
>i need help to count how many textbox.visible .t. at my form as anumber
>m.count1=3 or 2 or ...
>

>thisform.text4.visible =Thisform.text4.value>0
>thisform.text5.visible=Thisform.text5.value>0
>thisform.text6.visible=Thisform.text6.value>0
>thisform.text7.visible=Thisform.text7.value>0
>thisform.text8.visible=Thisform.text8.value>0
>thisform.text9.visible=Thisform.text9.value>0
>

>thanks

nTxtVisible = 0
FOR i = 1 TO thisform.ControlCount
    oCtrl =  thisform.Controls(i)
    IF UPPER(oCtrl.BaseClass) == "TEXTBOX"
       nTxtVisible = nTxtVisible + IIF(oCtrl.Visible,1,0)
    ENDIF
ENDFOR
WAIT WINDOW nTxtVisible