ok, ora non da più errori ma non funziona ancora... In realtà vorrei che se un campo checkbox fosse selezionato, tutti i campi si abilitassero. Per questo ho fatto:

If CheckBox1.Checked Then
For Each campi As Control In Me.Controls
If (TypeOf campi Is TextBox) Then
campi.Enabled = True
End If
Next
Else
For Each campi As Control In Me.Controls
If (TypeOf campi Is TextBox) Then
campi.Enabled = False
End If
Next
End If

ma non funziona