Sintaxis para un bucle

[pkj]

Si lo dijiste, el caso es que pensaba que ya habias creado la matriz de labels como te han comentado anteriormente.

Si eliminar todos los labels y crear una matriz es mucho trabajo porque cada label tiene un caption diferente y son muchas, tienes otra opcion:

Código :

Dim F As Integer
For F = 0 To Controls.Count -1
  If Left$(Controls(f).Name, 5) = "Label" Then
    Controls(F).Visible = False
  End If
Next F
 

PD:
Puedes usarlo en una sub como la que has mostrado para ocultar un label por su numero si pones:

Código :

Private Sub fncPrueba(varOpc)
Dim F As Integer
For F = 0 To Controls.Count -1
  If Controls(F).Name = "Label" & varOpc Then
    Controls(F).Visible = False
  End If
Next F
End Sub