Entonces te quedaría así:
Cita: For Each c As Control In Controls
Dim sName As String = c.GetType().Name
If sName = "ComboBox" Then
CType(c, ComboBox).Enabled = False
End If
If sName = "TextBox" Then
CType(c, TextBox).Enabled = False
End If
Next
Por el simple hecho de estar deshabilitados te apareceran en color gris.
Salu2