Private Sub AllPictureBox_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
        Dim b As PictureBox = CType(sender, PictureBox)
        Dim a As String = FindCurrentImageIndex(b.Image, ImageList1).ToString