dim s(),sl as string
s=split(lev,";")
for each sl in s
Select Case s1
                        Case pb.Name
                            pb.Image = ImageList1.Images(0)
                        Case Else
                            'pb.Image = ImageList1.Images(1)
End Select