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
        MsgString &= pb.Name
    End If
Next
MessageBox.Show(MsgString)