Error con variable

[erbuson]

Debes tener una variable para controlar todo el ciclo y actuar solo al salir de el, por ejemplo algo así:

Código vb:

Dim xControl As Control
  Dim TodoCeros As Boolean
  ' Para empezar suponemos que todas serán 0
  TodoCeros = True
  For Each xControl In Me.Controls
    If TypeOf xControl Is Label Then
      'Si el Label NO es 0 Borramos TodoCeros
      If xControl.Caption <> "0" Then TodoCeros = False
    End If
  Next
  ' Si todos son cero lo oculta sino lo visualiza
  If TodoCeros Then Picture1.Visible = False Else Picture1.Visible = True
 

Saludos