单击了哪个自动生成的picturebox？VB.net

Private Sub PictureBox_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    ' 加载并显示图像文件
    PictureBox1.Load("image.jpg")
End Sub

Private Sub PictureBox_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click
    Dim pictureBox As PictureBox = DirectCast(sender, PictureBox)
    
    ' 切换到下一个PictureBox控件
    Select Case pictureBox.Name
        Case "PictureBox1"
            ' 切换到PictureBox2
            PictureBox2.Image = Image.FromFile("image2.jpg")
        Case "PictureBox2"
            ' 切换到PictureBox3
            PictureBox3.Image = Image.FromFile("image3.jpg")
        Case "PictureBox3"
            ' 切换到PictureBox1
            PictureBox1.Image = Image.FromFile("image1.jpg")
    End Select
End Sub

Private Sub PictureBox_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    ' 放大图片
    Dim originalImage As Image = PictureBox1.Image
    Dim scaledImage As Image = New Bitmap(originalImage.Width * 2, originalImage.Height * 2)
    Using graphics As Graphics = Graphics.FromImage(scaledImage)
        graphics.DrawImage(originalImage, New Rectangle(0, 0, scaledImage.Width, scaledImage.Height))
    End Using
    
    ' 显示放大后的图片
    PictureBox1.Image = scaledImage
End Sub