como colocar visible a false a todos los label del formulario

[tazzito]

Dim MiObjetoRecorrido As Object

For Each MiObjetoRecorrido In Me
If TypeOf MiObjetoRecorrido Is Label Then 'los tipos son TextBox, CommandButton, Label, etc
MiObjetoRecorrido.Visible = False
End If
Next