Private mytable As Boolean[] = [True, False, True, False, False, True]
Public Sub form_open()
Dim i As Integer
Dim c As Control
For i = 0 To mytable.Max
For Each c In Me.Controls
If c.Name = "Label" & i Then c.Visible = mytable[i]
Continue
Next
Next
End
Mi dispiace per kicco ma questa volta non ho effetti speciali...:D