[dalas]

dim a=0
for eatch c in me.controls
if c.text="ahmad" then a+=1
next
label1.text=a