Dim aa As String
        Dim ca As Control
        Dim pb As PictureBox
 
        For Each ca In Me.GroupBox8.Controls
            If TypeOf ca Is PictureBox Then
                pb = CType(ca, PictureBox)
                aa = FindCurrentImageIndex(pb.Image, ImageList1).ToString
            End If
        Next
        MsgBox(aa)

msgbox =+ (aa & ";")