>>583
dim ctr as control

for each ctr in me.controls
if typename(ctr)="TextBox" then ctr.Text="65000"
Next