Para desabilitar uso esta sin array solo con bucles
Private Sub Desabilitar()
On Error Resume Next
Dim c As Control
For Each c In Controls
If TypeOf c Is TDBText Then
c.ReadOnly = True
End If
If TypeOf c Is TDBCombo Then
c.Enabled = False
End If
If TypeOf c Is TDBDate Then
c.Enabled = False
End If
If TypeOf c Is TDBMask Then
c.Enabled =False
End If
If TypeOf c Is CheckBox Then
c.Enabled = False
End If
Next
End Sub
Asi se puede para limpiar