Dim zz As String
        Dim aa As String
        Dim ca As Control
        Dim pb As PictureBox
        Dim MsgString As String
        For Each ca In Me.GroupBox8.Controls
            If TypeOf ca Is PictureBox Then
                pb = CType(ca, PictureBox)
                aa = FindCurrentImageIndex(pb.Image, ImageList1).ToString
                zz = pb.Name
            End If
        Next
        MsgString &= zz & ";"
        MessageBox.Show(MsgString)