Control Array (single event for multiple handlers) , Picture box control

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click

        Dim btn As Button = CType(sender, Button)
        MessageBox.Show(btn.Text)

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click

        Dim pb As PictureBox = CType(sender, PictureBox)

        Select Case CInt(pb.Tag)
            Case 0
                pb.Image = Image.FromFile("D:\SD_SampleVBpgm\img1.jpg")
                pb.SizeMode = PictureBoxSizeMode.StretchImage


            Case 1
                pb.Image = Image.FromFile("D:\SD_SampleVBpgm\img2.jpg")
                pb.SizeM(ode = PictureBoxSizeMode.AutoSize)

            Case 2
                pb.Image = Image.FromFile("D:\SD_SampleVBpgm\img3.jpg")
                pb.SizeMode = PictureBoxSizeMode.Zoom


        End Select
    End Sub
End Class