Option Explicit
Enum TextBoxes
txtCognome = 0
txtNome = 1
txtMail = 2
txtWeb = 3
End Enum
Private Sub Form_Load()
Dim x As TextBoxes
For x = txtCognome To txtWeb
TextBox(x).Enabled = False
Next x
End Sub
Così dovrebbe fare quello che vuoi. La variabile
x la devi legare all'enumerazione, altrimenti è tutto inutile.
