luca.vb

Public Class Form1
    Public lucas(5) As PictureBox
    Private Sub btnHide_Click(sender As Object, e As EventArgs) Handles btnHide.Click
        Dim x As Integer

        For x = 0 To lucas.Length - 1
            lucas(x).Visible = False
        Next

        btnHide.Enabled = False
        btnShow.Enabled = True
    End Sub

    Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
        Dim x As Integer

        For x = 0 To lucas.Length - 1
            lucas(x).Visible = True
        Next

        btnShow.Enabled = False
        btnHide.Enabled = True
    End Sub

    Private Sub PictureBoxALL_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click, PictureBox5.Click
        Dim p As PictureBox
        p = DirectCast(sender, PictureBox)
        p.Visible = False

        btnShow.Enabled = True
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lucas = {PictureBox1, PictureBox2, PictureBox3, PictureBox4, PictureBox5, PictureBox6}
    End Sub
End Class