Attraverso l’oggetto Controls è possibile contare sulla base di criteri, enumerare e modificare le proprietà di controlli presenti su una maschera, sottomaschera o report. E’ una collezione interessantissima e molto potente. Ogni oggetto, per esempio una combobox, un pulsante o un’etichetta, possiede inoltre la proprietà TAG. In questa proprietà possiamo inserire un dato arbitrario per rendere riconoscibile quello specifico oggetto: un punto esclamativo “!” potrebbe essere sufficiente. Qui un esempio di come rendere invisibili tutti gli oggetti con il TAG “!”
'Nasconde i controlli taggati con "!"
Dim Myctl As Control
For Each Myctl In Controls
If Myctl.Tag = "!" Then
Myctl.Visible = False
End If
Next Myctl