Umesto da za svako polje dodajes if blablabla probaj sa Tag osobinom nesto pomocu sledeceg koda
Code:
Dim ctrl As Control
For Each ctrl In Me.Controls
Select Case ctrl.Tag
Case 1
ctrl.Locked = True
Case 2
ctrl.Enabled = False
End Select
.
Pozdrav.
Jednog dana...