Dim pic() As PictureBox, no
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  pic(0) = PictureBox1
  pic(1) = PictureBox2
  pic(2) = PictureBox3
  pic(3) = PictureBox4
  pic(4) = PictureBox5
  pic(5) = PictureBox6
  pic(6) = PictureBox7
 End Sub

Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click, PictureBox5.Click, PictureBox6.Click, PictureBox7.Click
  Dim ch() As Object = {"牛", "馬", "鹿", "駱駝", "青蛙", "企鵝", "魚"} '設ch為 物件變數
  Dim en() As Object = {"Cow", "Horse", "Deer", "Camel", "Frog", "Penguin", "Fish"} '設en為 物件變數
  Dim no As Integer = Microsoft.VisualBasic.Right((CType(sender, PictureBox).Name), 1)
  If optch.Checked = True Then '點選中文
   txtshow.Text = ch(no - 1)
  End If
  If opten.Checked = True Then '點選英文
   txtshow.Text = en(no - 1)
  End If
 End Sub